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coordinate  system  defined  for  each  of  the  experimental 


:rovTrams  is  described.  Coordinate  positions  of  reference 
5  ana  camera  locations  in  the  various  coordinate  systems  are 
}nted.  The  techniques  used  to  locate  and  mark  anthropome trie 
3  on  the  test  subjects  are  described, 

'.e  tracks  of  the  mar];.ed  anthropometric  points  were  recorded 
^’nout  each  test  event  on  IG  mm  motion  picture  cameras  opera- 
.t  a  nominal  speed  of  500  frames  per  second.  Projected  image 
.r.-ites  of  the  tracked  points  were  digitized  semi-automatical  1\ 
-  i-.'n  of  the  frames  during  the  event  and  were  electronically 
'SCO  to  time-seat  coordinate  position  histories  for  displace- 
.'oLocity,  and  acceleration  analysis. 
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:  nt.'.ia  0:1  s  orrtul  a  cicns  ^  rear'"A''ara  eceiera t  i  c o  of  the  test 

-■chicle  from  a  stanaina  positico  by  the  doriicrit.a^  lopulse  Accel¬ 
erator,  anc:  deceieratica  of  the  test  Vc^iiicle  troii  lor-’vvard  :uc.t..o:. 
by  the  Hydraulic  Oecelerator,  and  from  the  upper  torso  tract i c.-n 
environment  simulated  cn  the  Body  Positioning  R.erract.icn  .bevic.j. 
AonpLanar  motion  resulted  from  hea'i  on  crash  s  i  i’.;,..  ^  .  o  ivs  .1  . 

■^viiich  the  subjects  were  asymmetrically  res t  ra  1  ne'i ,  .i:u.  r  r  : 

on  crash  simulations. 

Prior  to  each  expe r  im.en  t a  1  test  ore c r a m  t : :;:n o  1  or; e  1  :  :  •  ■ 
data  requirements  were  specified.  These  specifications  deter¬ 
mined  the  number  of  cameras  to  be  used  and  their  locations  anc 
orientations.  The  specifications  also  determined  the  numc  o'  *'■0 
moving  points  to  be  tracked  and  i-icntified  them.  ico  cre-* 
points  in  the  field  of  view  o:  l;-':;  '■•r.'.oo,  ^  o 

ciais  and  their  coordi  n  ci  t  e  s  w  i?  1 1  i  O'  -  -  Oj  r '  o  ‘ 

The  recorded  test  data  were  p;  o  joc  t'-'c ,  lov'.  '  .  .. 

a  viewing  screen  equipped  with  horiC'Oxitai  and  vert.,  r.  .  ■  - 

the  relative  positions  of  wdiich  were  digital  cnC'O.  -  c  ry 
shaft  angle  encoders  attached  to  the  shafts  of  * ‘x-  . •'  •/. 

knobs.  The  encoders  excited  up-down  count^ors  vr.v-' 
horizontal  and  vertical  cisplacorvien  t  ’  Ir;  ^•cicc-:  :  ’  c 

jected  im.age  of  each  of  the  pcints  :o\iO.  o<  ‘i  m*-:':-  :  cm  o.  .■ 
then  computer  processed  to  time  h  roo^  ^  f  t-.v  ■  •  ' 

sional  coordinate  positions  ,1:1;  t..;;'  ...cm  -.'O.  :  *■  . 

acceleration  were  derivec.: . 


The  techniques  and  procedures  applied  to  reduce  data  from 
each  of  the  major  test  programs  are  described  in  this  report. 

The  coordinate  solutions  were  adequate  to  use  as  comparisons 
with  predicted  trajectories  of  the  various  points.  With  the  ex¬ 
ception  of  the  Injury  Protection  Comparison  study  and  the  elbow 
trajectory  data  from  the  (6,  8,  and  lOG)  study,  errors  in 

solution  were  less  than  one-eighth  inch.  Large  errors  in  x- 
component  of  displacement  were  evident  in  the  data  from  the  Whole 
Body  Restraint-Lateral  test  program.  The  indications  are  that  the 
angle  between  the  optical  axes  of  the  cameras  (11  and  12)  was  too 
small . 

Derived  velocity  and  acceleration  data  are  not  sufficiently 
accurate  to  use  for  predictions.  Improved  filtering  methods  and 
greater  accuracy  in  coordinate  solutions  would  be  required  to 
improve  the  utility  value  of  these  data. 


2 


PREFACE 


Tho  work  described  herein  was  accomplished  for  rl.e  benefit 
of  the  Aerospace  Medical  Research  Laboratory,  Wr  i^jht-Pa  tterson 
Air  Force  Base,  Ohio  under  Contract  F33615-76-C-'0525  during  the 
period  1  September  1976  through  30  April  1979.  This  contract 
was  monitored  initially  by  Major  John  P.  Kilian  and  later  by 
CMSgt .  Joseph  M.  Powers  of  the  Biomechanical  Protection  Branch , 
Air  Force  Aerospace  Medical  Research  Laboratory . 

University  of  Dayton  personnel  who  made  major  contributions 
to  the  program  include  William  J.  Hovey,  Project  Supervisor, 

Henry  T .  Mohlman  and  Ronald  C .  Reboulet ,  Research  Mathematicians , 
and  Philip  A.  Graf,  Research  Technician. 

The  authors  gratefully  acknowledge  the  cooperation  and 
assistance  provided  by  Mr.  Jim  Brinkley ,  Branch  Chier ,  Ma j ,  Jonn 
Kilian  and  CMSgt.  Joseph  Powers,  the  Contract  Monitors,  tne 
Project  Engineers  and  Principal  Investigators  and  all  other  per¬ 
sonnel  of  the  branch.  Assistance  and  cooperation  of  personnel 
of  the  Technical  Photographic  Division,  4950th  Test  Wing,  and  of 
the  Digital  Computer  Operations  Division,  Aeronautical  Systems 
Division,  are  a.  ■  gratefully  acknowledged. 


3 


TABLE  OF  CONTENTS  {Continue  A ) 


Section 


2.5.4  Data  Reduction  P ro,'-, 

2. 5.4.2  Digit  i2i  nc; 

2.5.4. 3  Electronic  Data  Pro 

2-5-5  Results  and  Accuracy 


ANALYSIS  OF  NONPLANAR  MOTION 


3.1 

DOT  6 

YEAR  OLD  CHILD  COMPARISON 

3.1-1 

Photometric  Data  Acuuisitio 

3.1.2 

Data  Reduction 

3.2 

WHOLE 

BODY  RES  TEA.  I  NT-  LATE  PAL 

3.2.1 

Seat  Coordinate  System 

3.2.2 

Camera  Locations 

3.2.3 

Data  Acquisition 

3.2.4 

Data  Reduction 

3. 2. 4.1  Film  Editing 

3. 2. 4. 2  Projected  Imaao  D: 
3-2.4.  3  Electronic  Data  I'r 

4  PICTOGRAPHIC  PRESENTAT  LCD: 

4.1  PROGRAM  RSD  INPUT  REQ  'IREMENTU 

4.2  FILM  DIGITIZING  PROCEDURE 

4 . 3  RESULTS 


APPENDIX  A 
APPENDIX  B 
APPENDIX  C 
APPENDIX  D 


PROGRAM  HIFPD 
PROGRAM  WLRL 
PROGRAM  RSD 
PROGRA.M  CHIFPD 


LIST  OF  ILLUSTRATIONS 


Figure  Page 


1  Observed  Point  and  its  Film  Plane  Image  Relative  14 

to  the  Optical  Axis. 

2  Film  Plane  Image  of  Scene  Coordinate  Axes.  15 

3  Relationship  Existing  Among  Image  Plane,  Projected  16 

Image  Plane  and  Object  Plane. 

4  Project  Images  of  Observed  Points  Equidistant  from  17 

Optical  Axis  but  Lying  in  Different  Planes  Normal 

to  the  Optical  Axis. 

5  Relationship  Between  Projected  Image  Coordinate  18 

System  and  Scene  Coordinate  System. 

6  HIFPD  Flow  Chart.  26 

7  CPLT  Flow  Chart.  28 

8  SM  Flow  Chart.  32 

9  DERIVl  Flow  Chart.  34 

10  QLSQ  Flow  Chart.  37 

11  ROTATE  Flow  Chart.  40 

12  MEANl  Flow  Chart.  43 

13  MEAN2  Flow  Chart-  45 

14  Typical  Deck  Setup  for  HIFPD  Computer  Run  on  0 

Cyber  System. 

15  9TAP  Assembly  Orientation.  58 

16  RSD(N/0/R)  Seat  Coordinate  System  and  Onboard  60 

Camera  Locations. 

17  -50Gx  Injury  Protection  Comparison  Photometric  83 

Range  and  Seat  Coordinate  System. 

18  Average  and  Modified  -50G^  Readings  Versus  Grid  85 

Displacement. 

19  BPRD  Seat  Coordinate  System  and  Reference  104 

Fiducial  Locations . 

20  Camera  Locations  in  BPRD  Seat  Coordinate  System.  107 

21  Frequency  Response  of  11-Point  Smoothing  as  116 

Applied  in  the  HIFPD  Program. 

22  DOT  Six-Year-Old  Child  Comparison  Seat  Coordinate  1-1 

System  and  Survey  Data,  Forward  Impacts. 

23  DOT  Six-Year-Old  Child  Comparison  Seat  Coordinate  1-- 

System  and  Survey  Date,  Lateral  Impacts. 


6 


LIST  OF  ILLUSTRATIONS  (Continued) 


Figure  Page 


24  Typical  Scene  Prior  to  Forward  Impact  as  i23 

Observed  by  Cameras  6  (Upper)  and  7. 

2 5  Typical  Scene  Prior  to  Lateral  Impact  as  124 

Observed  by  Camera  7  (Upper)  and  8. 

26  WBR'L  Seat  Coordinate  System  (SCS) .  ^28 

27  Schematic  of  Camera  Locations  and  Orientations,  129 

WBR~L. 

28  WBR-L  Reference  Fiducials  Schematic.  134 

29  Projected  Film  Frames  From  Cameras  12  (Upper)  138 

and  11  as  Viewed  by  Operator,  WER-L. 

30  Projected  Film  Frames  From  Cameras  13  (Left)  140 

and  14  as  Viewed  by  Operator,  WBR-L. 

31  Pictograms  of  Displacements  of  Body  Segments  132 

and  Restraint  Harness  as  a  Function  of  Time . 


7 


SECTION  1 
INTRODUCTION 


The  high  injury  and  fatality  rates  associated  with  vehicular 
crashes  and  emergency  escape  from  aircraft  dictate  the  need  for 
determination  of  impact  exposure  limits  and  the  evaluation  of  the 
effectiveness  of  various  protection  system  conf igurati'^ns  ';nu  pro¬ 
tection  principles  and  techniques.  In  response  to  these  needs,  the 
Biomechanical  Protection  Branch  of  the  Air  Force  T-.erosi  ace  Medical 
Research  Laboratory  (AMRL/BBP)  has  rigorously  conducted  experimental 
test  programs,  developing  in  the  laboratory  simulations  of  the 
environments  to  which  crewmen  might  be  exposed-  Data  collected  from 
these  experimental  programs  provide  the  bases  for  verification 
and/ or  improvement  of  predictive  biodynamic  models. 

This  report  describes  and  documents  the  photometric  analysis 
procedures  and  processes  developed  and  applied  by  the  University  of 
Dayton  Research  Institute  (UDRI)  during  the  period  1  September  1976 
thru  30  April  1979,  in  support  of  AMRL/BBP  research  and  development 
programs . 

The  photometric  work  accomplished  is  summarized  as  follows: 

•  DOT  6  Year  Old  Child  Comparison .  The  reduction  of  photo¬ 
metric  recordings  of  points  on  the  heads  of  dummies  and 
baboons  to  time  histories  of  three  dimensional  coordinate 
positions  was  completed. 

•  Restraint  System  Dynamics.  Preparation  of  test  subjects 
by  application  and  documentation  of  tracking  fiducials 
was  accomplished.  Reduction  of  film  data  to  two  dimen¬ 
sional  time  histories  of  displacement ,  velocity,  and 
acceleration  of  six  points  on  the  heads  and  extremities  of 
nine  human  subjects  and  one  manikin  during  ninety-one 
tests  was  completed. 

•  Whole  Body  Restraint-Lateral.  Preparation  of  subjects  by 
application  and  documentation  of  tracking  fiducials  was 
accomplished  prior  to  each  test.  Reduction  of  film  data 
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to  time  histories  of  three  diinensional  displacements, 
velocities,  and  accelerations  of  nine  points  on  the  heads 
and  torsos  of  ten  human  subjects  and  three  manikins 
acquire.^,  during  fifty  three  of  the  tests  was  completed. 

•  Upper  Torso  Retraction.  Preparation  of  subjects  by 
application  of  fiducials  and  measurement  of  variable 
breadths  was  accomplished  prior  to  each  test.  Film  data 
collected  during  two  tests  were  reduced  to  two  dimensional 
time  histories  of  displacements,  velocities,  an  1  accelera¬ 
tions  of  nine  points  on  the  subject  and  one  point  on  the 
retraction  piston . 

•  Impact  Protection  Compax'ison,  -50  Accelerator. 
Preparation  of  subjects  by  application  and  documenta t ion 
of  fiducials  was  accomplished  prior  to  each  of  eighteen 
tests.  Data  were  digitized  from  seventeen  of  the  tests 
and  were  reduced  to  time  histories  of  displacements, 
velocities ,  and  accelerations  of  six  points  on  each  of 
the  subjects . 

•  Impact  Protection  Comparison ,  -50  Decelera tor . 

Preparation  of  subjects  by  application  and  documentation 
of  fiducials  was  accomplished  prior  to  each  of  twelve 
tests.  Film  data  from  eleven  rests  were  digitized  and 
reduced  to  time  histories  of  displacements,  velocities, 
and  accelerations  of  six  points  on  each  of  the  subjects. 

•  F-111  Generic  Study ,  -G^ .  Preparation  of  subjects  by 

application  of  fiducials  and  measurement  of  their  relative 
locations  was  accomplished  prior  to  each  test.  A  process 
was  developed  to  plot  pictograms  of  the  head  and  extremi¬ 
ties  of  the  subject  and  the  projection  of  the  harness 
geometry  in  the  X-Z  plane.  The  process  was  demonstrated 
with  data  digitized  from  film(s)  ot  testis). 
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analyst:^  OP' 


Exposure  Ol  ,  .1  :  ^  :  ..  x  •'. 

+G  acceleration  c,nn\^  iroranero  >:  '.siO  .  ■/  :  .’... 

—  z 

points  on  these  Ari:!- 

the  extreiTiit  ies  is  -iemons  t  la  ■  ee ,  i is  rs.r.  e  1.0/  .:  :■ 

tude  as  to  warrant  three  dinensirn.ii  anaiys:  1.  ^ 

point,  or  points,  were  'les': r i.b< - 1  haia  a  :.  ::  •  r 

recorded  on  a  si. nyle  motion  pictu.'a.-  camL.or,i  i  ’  :  t  "  :  :  y  r 

Plorizontal  Impact  Facility  Photometrio  Arah/..:-.  rax- 

The  test  programs  from  which  data  were  redueevi  asia^:  ^;h:a  a:  , 
were ; 

•  Restraint  Ply  stem  Dynamics 

•  Upper  Torso  Retracticxi 

•  Impact  PrcDtectii  n  Compar  isons ,  -50  y 

The  original  version  of  HI  FPU  was  aerarl*;:  ea  d'.ir.nc  a 
earlier  effort  and  was  documented  in  AMi<].-'rP-"ri-9I  .  AI.l^  p-ioces 
has  since  been  modified  by  the  a.idition  cr  three  sabrrat  i  nes , 
rotate,  mean  1,  and  mean  2,  which  were  deveioped  to  improve  jicc 
racy  by  minimizing  the  effects  of  camera  vibration  and  pm 
registration  variations,  and  to  provide  statist  ica  .  1  . ns 

reading  accuracy  and  smoothinc;  effects.  The  cnrrei:!  version  o-r. 
this  program  is  described  in  the  foi lowing  sections  arm  iistiiu^ 
the  program  source  statements  is  presento  i  in  Y.otenoix  A. 


2.1 


THEORY 


When  a  camera  photographs  a  scene,  the  filrt  » 
image  of  an  infinite  number  of  rays  of  light  emaiiat  mo  Iron  an 
infinite  number  of  points  in  the  serene.  if  tlu‘  A  ns  *  hr  :n  wPi 
the  rays  pass  is  s-ach  that  it  infroduces  no  .,i:.sr*;r*  .  r.  ,  *  :u  1  :iv 

image  of  a  given  observed  point  will  strilo  tht/  :  m  ,m  .»  .'mT.i: 


relationship  to  the  distance,  1,^,  '  ::e  g  tv, ■. 

observed  point  in  the  :j  Lane*  nor:v.a]  *  ‘  ht.  in  too,; 

tance,  3^,  iron  the  r'0>.:ai  p-  ml  in  wn,.di  t:a* 


Figure  1  illustrates  this  relationship . 


Figure  1.  Observed  Point  and  its  Film  Plane  Image 
Relative  to  the  Optical  Axis. 

Having  the  focal  length  of  the  lens,  s^,  given  by  the 
manufacturer  and  the  measured  distance,  r^,  the  distance,  r^,  can 
be  calculated  by  similar  triangles  to  be; 


This  does  not,  however,  permit  the  determination  of  the 
vector  direction  of  r^  from  the  point  at  which  the  optical  axis 
penetrates  the  object  plane. 

If  one  could  construct  a  perpendicular  set  of  axes,  x  and 
z,  in  the  object  plane,  for  instance  a  horizontal  and  a  vertical 
line,  intersecting  at  the  optical  axis,  then  the  vector  direction 
of  the  line  segment ,  r^ ,  can  be  determined  by  measuring  the  angular 
displacement  of  its  image ,  r ^ ,  from  the  image  of  the  x  axis  or  by 
measuring  the  coordinates  of  the  image  point,  p-,  and  solving  for 


I 


i  11k?  ^  iu  j '/a  i  o  n  t,  of  a  :)lano,  normal  ro  the  optir'al  .ixir, 

exisfa.i  befwoer.  t:ho  focal  point  of  the  camera  and  tiie  no-.  ;,-. 
’'Lowed  by  the.'  camera  tit  a  distance,  from  the  focal  point 

.Fiv/nro  -3).  Now,  aqain  assuminc;  no  distortion,  we  have  the  tl - 
!  -^  t  i  vonship  : 

r .  r  r 

_  o 

3  a  s 


I  3,  jh.:-]  .m  lonsh ip  Existing  AitLOng  Iirai-ic  Plane,  Projc'ctea 

I ] ta <1  c  Plan  e  a  n d  Object  Plane. 

af  a  :n.:.ca;od  point,  P,,t/  a  line  parallel  to  the  opti>;*'iI 
ixxs  and  passing  through  the  first  object  point  (such  that  r^^-r  ) 
IS  observed,  the  distance,  from  the  optical  axis  (or  center 

r  i:  projected  image)  to  the  pro  jected  image  point,  p  ,  is  relatt.-i 

P  i- 

to  the  distance  s  ..  as  the  distance  r  ..  is  related  to  s  ^ , 

c  2  o  2  o  2 


1.0.  : 


-r  ,  i’rcjerLod  0]:;w^r’'od  rr'ints  Equidistant 

from  Optical  Axis  but  l.yinq  in  Different  Planes 
X o r ma  i  to  r h O v  t  i  c a  1  A :<  i  s  . 

Mow  let  us  return  to  the  proi^Iom  of  relating  the  orienta- 
ticr.  of  the  film  frame  imane  to  tiie  obsor\’ed  scene.  As  has  been 
stated,  it  is  usually  not  practical  to  draw  a  set  of  axes  on  the 
observed  scene.  It  is,  how'cver,  practica]  r.o  establish  a  coordinate 
system  in  the  scene  and  survey  t:\o  coordinates  of  several  fixed 
points  of  reference  in  the  ahl  i  O'hr'd  sys;tcin.  Figure  5  illustrates 
the  r-ro-jccted  image  of  the  points  ,  the  origin  of  the  scene  co¬ 
ordinate  system  (SCS)  and  and  p.,  wliich  are  surveyed  reference 
points.  For  the  sake  of  simplification,  the  three  points  are  co- 
pianar  in  a  plane,  y=n,  normal  to  the  optical  axis  although  in 
practice  this  is  not  required..  The  imaaos  of  these  points  are  pro¬ 
jected  on  a  viewing  screen  on  which  a  coord  in. itc  system  is  imposed, 
which  v/rk  shall  call  the  projected  imacc  coortiinate  system  (PCS). 
Having  thf'  coordinates  in  the  SCvD  of  tho  two  obser^/ed  points  Pol 
and  p  t-ho  pro  iorted  image  can  nrw  b'l  t-'^tatiul  relative  to  the 
PCS  »:r  r  1  i- i  n  fy  the  re  la  t  i  onshi  p  : 


2.2  HORIZONTAL  IMPACT  FACILITY  PHOTOMETRIC  I^ATA  ANACV'-  i  ^ 

PROGRAM  (HIFPD) 

Horizontal  Impact  Facility  Photometric  Data  Anal.y:-vs  7  . 
gram  ( H I  F P U )  j  s  :i  ( i  i  :  1 1" a  1  a r > inp 1 1 1 a  r  p !  a  q  r  ‘j  ■  i  ■  •  •  ’  '  ‘  ' 

the  Hy^ie  Impact  Facility  Photometric  Cnta  *  r  p  ^  -  m'.  '  • 

tection  Branch  of  the  Biodynamics  Bioengineor  Ln  *  :  : 

AFAMRI. .  The  program  was  compiled  and  execut  cd  -n  t 
computers  at  Wriqht^Pa tterson  Air  Force  Base.  '.hr-  a 
plot  package  is  used  to  plot  data  and  thus  :aus!-  Ir.  c  . 

load  and  execute  the  Program. 

This  program  inputs  the  code  sheet  d^t.^  and  ra  -'sra.m  ',.• 
trol  prarameters  described  in  the  section  entitled  ’’l.^escr  Lpt  ivu' 
Program  HIFPD  Input  Data  and  Parameter  Codes”  and,  -^i  T..ixir:u'r  O 
(MAXN)  frames  of  x,  z  position  data  for  the  range,  sOad,  hitg 
shoulder,  elbow,  head  point  1  and  head  poii^t  2  fc^r  ITVCfC^O  nr 
range,  sled,  head  point  1  and  head  point  2  for  ITYPE'.l.  The  da* 
card  format  are  also  described. 

The  program  computes  the  following  four  types  of  data  a 
requested  by  the  program  control  parameters; 

(a)  The  input  data  versus  frame  number  and  the  frame  t 
frame  differences  are  printed  in  ccnints.  The  range  difference 
is  subtracted  from  the  frame  to  frame  differences  for  each  of  th 
seven  parameters.  Tho  only  value  of  this  difference  data  woj.ld. 
be  to  spot  errors  in  the  data.  When  *:he  jnput  iata  are 

and  translated  (ICAM-1),  t^ie  i^-suIMnn  idrnUn.''r;  ia!.i  .im¬ 
printed  v'ersus  ft'ame  numle-t  '  s  t  i  1  !  in.  . 

(b)  The  di  sp  lacemen  ts  (s  an.:  n-  ^  t 'o  •  hen  d:.-’e,  ea.. 

elbow,  head  point  1  and  head  p’.int  2  r»' i  m  •  -  ;  ■  *  ■  .  • 

puted,  and.  a,  movim  I  even  p^mnt  (\'P  1  '  '  :  •  •  re  , ,  t 

fit  is  used  to  smooth  the  data.  These  ;.i'  =  r*  A  •  ;  ‘t. 

recpiested  on  the  test  setup  ’ani. 

(c)  The  HI  g  Los  in  inuiians  b^M:wer-a  A'*'  an  '  d.i*a  H'  hi; 

and  between  tlio  hf.id  soirit  i  m  1  head.  ma  m-;-  .  uA^.i  usir.  : 

the  above  smoeadic^d  data.  The  arvTular  i 


1 


'omrut.id  in 


radians  per  second  vising  a  r.vjvint:  11  point  '".uadratic  :  i  i.  a*  tdt.. 
angle  versus  tin;e  data  u'o:"i‘Utw^.  dcuivative  of 

tion)  .  The  angular  acceleration  is  coir.puted  usinc  a  iv/o/in  *  r‘l>j\Lu 
point  quadratic  fit  of  tiio  .‘Ldocity  versus  ti:;.c  da'.a. 
are  also  plotted  as  i^-,]Uusted  on  th*e  test  injtu;;  s,.;!.:, 

(d)  The  linear  velocity  and  acce lora t i 'vn  .fata  :  !  ..av- 

bination  of  the  eight  variables  are  computed  as  reguest'j'd  vu,  tho 
test  setup  card.  For  example;  the  linear  velocity  ar.v  : v-,  Ic r a '  i 

of  the  head  point  1  relative  to  the  ranee,  sled  roleti'.'.  *  t:. 

range  or  the  head  roint  1  ioIari\  e  to  the  sled  car;  s '  1  v: f 

Note  that  range  relative  to  sore  other  parameter  cannot,  c..  o.m:.-..' 

To  compute  these  linear  veiocity  and  acceleration  data,  th-.j  a:.u 

displacements  are  computed  for  tiie  variable  of  interest  r*.„lativ 
to  the  reference  variable.  :i;ovina  eleven  ;  uint  .ru  -ri 

least  square  smoothiir:  iuuo:.io:)  1'  appliec  to  on*  u  .v...*  .  tr'-. 

histories.  A  moving  eleven  point  quadratic  ]east  square  lit 
then  applied  to  these  smootiied  x  and  z-axis  displacement  data  to 
obtain  the  x  and  z  components  of  velocity.  Next  this  sair.e  smooth-' 
ing  routine  is  applied  to  these  x  and  z-axis  velocity  data  to  v;om- 
pute  the  X  and  z  components  of  acceleration.  The  resultant  dis- 
placement r  velocity,  and  acceleration  data  are  then  computed  usinc 
these  smoothed  x  and  z  component  data.  These  data  are  priid^od 
and  plotted  as  requested  on  the  test  setup  card . 

The  three  external  files  used  by  this  program  are  t!io  irq:ut 
file  (unit  5)  used  to  read  ail  code  sheet  and  data  cards.  Ihe 
output  file  (unit  6)  used  to  print  all  output,  and  TAPE?  (ur;it 
used  to  generate  the  plotter  tape.  A  magnetic  tare  bv  .‘c-- 

quested  with  TAPE7  as  the  local  file  name. 

The  following  sections  of  this  report  present  a  ..r- 

s  crip  tion  of  the  main  progruir.  urid  all  subroutines  exce;  1  ^nv  ,  A' 
COMP  plot  routines.  Flow  ciiar's  ar^j  alsc:  Include'..:  roi  eao:  :  -r. 

Appendix  C  contains  a  com;  i-.'t'..  listiuT  of  the  yu.'vm.ar.  j  ^  i:i  o.  :* 
and  Appendix  D  contairu?  a  uai’.plo^  rui.  c- let.',  oith  .  1.1  .:  ::  'U  , 
output  data  (incrudi!v:  ■  1  ‘  v  . 


.  1  \.n  Rout  y  ft  ■ 

rhis  main  i  f t.-  fs'ffrf;:*  :•  , 

n;:..  ff  renucsto.!  '  y  ’If  ’.r.  n 

*  :  f^:.:  r  on  air  on  r  a  n  ^  !.  •  f-,  ■  :  i  ‘  ,  .  .  .  ' 

:n  aul  cs  are  ca '  ■  ;  ■  a  '  *  i  • 

-i.yi.nn  from  orrcof-  if  fotay  o'  .  fa^.‘  f- 

^  fis  roatine . 

Method 

The  troqraa  ;  no  ccof  fa  -■.  .  ' 

.:cod  in  the  "  Dor  ai  i  yT  i  on  or  y  '  i./  o 

L'O''  section  and  :a  1 1.  r  i  n  i  .1  too  tro  ro-'  '.aa  a’  \ 
la.afois.  The  piaara.  :  ^  a  a '  thf'  a' '  •  ..  a  . 


f’>.  J)  lor  each  :!‘a:a  'la. ion  ^  ^  :a  !  Mv  ' 
a  coale  are  checkoc:  for  rnout  or'ars:  error  a  : 
a  no  sties  to  be  printed  and  the  oroct^ssina  t 
a  .0  re  than  MAX  N  f  r  ama^  s  arc  re  a  d  ,  d  i  a  r:  no  s  t  i  c  e  a  r 
'•.03  beyond  MAXN  arc  omitted  from  the  analypi.e. 
.1  are  computed  t  r' o m  the  f'r a ri fc  n  l;o : ii o r  as  f i  i c ^ 

T(I)=IFR(I}/DT 

:  '  IFR(I]  is  the  frame  number  and  D'.'"  La  the  no 
:>ec;,;nd .  If  setup  oaral  parainctor  IKo  :o  ar  ra*: 
a  _pn  of  all  x  axis  data  are  chaivp'^d.  hlaa'  vh 
i  r.^e  ter.  I  AD  J  is  9  r  a  t  r  than  s  e  r  (■>  .  a  d  i  u  s  tin*^ » 1  *.  r 
d  are  added  to  _  a  and  a  axis  dot:m  1 

fi,  a  summary  page  is  piinted  iistin.a  all  t\ yes 
ted  ,  printe  .  araa  plotted  for  ^h  i  a  tero-  . 

When  progr  im  aontr.:  1  [ai lari'i  1  o :  L'-; 

1.  .i;':is  data  are  :;tint,ed  i counts.  'Iht  !  *.  i.oa- 
no  a  data  are  co-r  ■  ■  h:  y  -ira-;  ao  ;;o,  ■  :  -  d  ’  * 


XD(1)=X{I,1)  -  X(I-L,1) 

XD(J)=X(I,J)  -  X(I-1,J)  -  XD(lj  . 

XD ( i )  is  the  range  difference  from  the  frame  and  XD(J)  is  the 

t  h  t  hi 

variable  minus  range  difference  for  the  J  variable  and  the  I 
frame.  The  above  are  also  computed  and  printed  for  the  z  axis 
data  - 

When  code  sheet  parameter  ICAM  is  greater  than  one  (camera 
is  on  the  sled)  subroutine  ROTATE  is  called  to  rotate,  translate, 
and  calibrate  the  x  and  z  axis  data.  When  ICAM  is  less  than  one, 
these  X  and  z  axis  data  are  adjusted  for  shifts  in  the  range  re¬ 
ference  reading  and  then  converted  from  counts  to  feet  (in  the 
Main  routine) : 

H1^X(I,1)  -  X(l,l) 

H2=Z(I,i)  -  2(1,1) 

X(I,J)  =  {X(I,J)  -  HI)  *  CAL(J) 

Z(I,J)  =  (2(1, J)  -  H2)  *  CAL(J) 

where  CAL(J)  is  the  calibration  factor  for  the  variable 

';j  =  2  to  8).  Next  subroutine  MEANl  is  called  to  compute  and  print 
the  mean  and  standard  deviation  about  the  mean  for  the  sled  re¬ 
ference  data.  This  provides  an  estimate  of  the  film  reading  errors 
since  the  adjusted  sled  reference  should  be  a  constant. 

When  program  control  parameters  IPC  <  2  or  IPA  <  2,  x  and 
z  axis  motion  relative  to  the  sled  are  computed  for  variables  3 
to  8  (or  7  and  8  for  ITYPE^l) : 

XD(I)=X(T.  ,  J)  -  X{I,  2) 

ZD(I) =Z (I, J)  -  Z  (  r, 2)  . 

Subroutine  SM  is  called  to  compute  a  moving  eleven  point  (NP-I1'» 
(Uiadratic  least  square  fit  to  smooth  the  X  and  Z  axis  data.  The 
sm.octhed  data  arc  stored  in  arrays  XX(r,JJ)  and  ZZ(I,vJJ)  where 
JJ=J-2.  As  a  result  of  the  eleven  point  smoothing,  five  frames 
are  lost  at  the  beginnina  and  end  of  the  test  data;  this  is  true 
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eacn  tinu'  :  it  a  ir 


aro  coia;.  ■  : 


smoother.:  aa  r  i  reiat  i  vo 


all  variables 


Til  o  a  a ' '  I  o  b  a  t  w t?  a '  •'  a  li  c  ■  ’  r  a 


:or  each  fraaie  usiia.:  the  a:; 


caramoter  I  I'A 


.  ne  ana :  ■ 


:i  i  a  -  1  , 


X  D  (  I  ;  -  cl  I'  t:  a  n 


where  index  3  is  shoulder  .lata  a: 


u  r  r  a  s  .  An  ales  X  D  ( 


ma  k  e  the  rr.  c o  n  t  i  m:o  i :  s  . 


anaui;,:/  '/e  e 


(XP^'li)  quadratic  tit  of  the 


in  r a d u a n s  * i e r  s f c o n c  s ■. 


o f  the  voice  1 1*/  da  ta  .  The  in 


IPA=0,  subroutine  CPLT  is  called  to  genera te  r 


angular  velocity  and  acceleration  versus  tiv.e 
angular  aata  are  computed  in  a  similar  manner 
minus  head  point  2  data  (indices  an d  6  in  a ] 


Parameter  >!  contains  the  number  of  set 


and  acceleration  data  to  be  computed  for  one^  var  ;ab 
relative  to  anotlier  (array  IR)  .  Por  exam;,  l-'s  t  *b 


I R  ( 1 )  =  2  ,  then  for  set  M=  I  th  e  h  i  r  mo  t  i  on  r  1  1 1 . 


computed  for  ail  available  frames. 


If  M  <  0  and  I PL  2,  all  data  for 


adjusted  by  subtracting  the  initia 


Xf I , J) -Xf I , J) 


,  J)  -  Z  (  I  ,  J)  '  Z  M  ,  ,T' 


where  all  x  and  z  data  hai' 


to  feet.  F < )  r  e a < ' h  t.)  f  t h ‘'I 


T he  V  .  ■  i  vi  L  1 L-  6  i  ^  V  1  -  . .  . : .  , 

tvj  be  1--  i  V.  *.  *  ■  •  1  1  .  ■  .  •  :  : 

iata  :xi-  .:tu  A  .  .  •  :. 

values;  ;  r  v  ,  ’  h.  / 

Subrou t  1  ru_^s  .  .;v-'  . 

the  1  e  *  n  •  1  <  ! .  :  : .  ^  :  i ;  ; .  :  . 

X  array'  •  :  r ,  ,  ■  ;  ,  .  . ,  :  .  . 

second  an.i  ive  ■  .  ra^ 
t  inie  seal::.;  i  a  :<  o.'  ^ 

/  *.  i  a  ■  ,  .  O  .  :  ■ ■  .  >■ 

initial  t::ue  valuu,  '  i  i  , 

X  (  1 )  ; 

(  b  )  t  IK.-  t  1  i;a  ‘  .  iil:  :a,  .:lcVi  ^ 

Cej  'the  tin.e  axis  I. ^nuth  od'd  is  detei. 
the  total  rveia^^  XaO-XXlN 

dX-dd.oAT(  '  'X  iX)  -XMIX.  ...al  ’  i  _ 

The  aneuiar  velocity  ana  accu  i  e  i  a  t 'i  ..ni  ;'  .  n  w.:i 
inch  scaling  are  set  at',  by  calling  si  da  -v  .  n-  v-  . 
the  data  and  sets  valaus  scccru  :.ne  iy  ,  .  IS'  V'd  -  .  ; 

printed  on  the  left  sj.de  <..>t  tile  jianii  arsi  i 'ne 
on  the  right  side.  Subroutines  I.lXd:  ana  SYMBOL  . 
the  data  and  print  the  ie-jejid  on  tiie  g.apii. 

For  paraiuetei  IB-*!,  >Xiy'  '.na  a* !  ..i  t  a- s  -.iv  : 
or  X  array;  in  seconds  veisus  liiiveo  \'e  1  V'i,:  i  •  y  v.’ . 
second  and  acce  le  i  a  t  icji.  lY;  iii  d‘s.  lir,.-  t.ina'  v 
as  per  IP  =  l  abovtjr.  'liit;  ’.*el-'ciiy  ana  a^'S:  c  ;  a 

using  the  sani;  or.iinav  •  ici.'o  "X'  : 


NP  ~  number  of  points  used  in  least 
square  fit 

11  -  first  point  used  in  composite 
plot 

E2  “  last  point  used  in  composite 
p  i  o  t 

XX  -  array  or  x  axis  displacement 
data 

ZZ  -  array  of  z  axis  displacement 
data 

ICAL  -  flag  array  which  identifies 
de f ined  data 

ICAL(J)  =  0  -  variable 

unde  f  1 


( J  ) 


•  o  labU 


IS  d^  r  1 1 .t  -  l: 


Subroutine  Lent;th: 


HEADL  -  array  containing  variable 
names  used  in  ieuend 

I’EST  -  test  identif  ica  tion  used 
in  legend 

IRX  -  flag  used  to  setup  composite 
plot  X  axis  scale 

DYlP  -  y  increment  per  inch  for 
linear  plots 

1612.. 


2.2.3 


j  qua  dr 
(V)  to 


a  r  e  u  s  i } 


at:  the 


Labeled  Conmon  Length:  24^ 

Blank  Common  Length:  7066^ 

^ y 

Sub rout i ne  SM (X ,  YC,  N,  NP) 

Subrout  SM  IS  a  smoothing  routine  which  computes 
at  1C  least  square  Lit  oL  NP  dependent  variable  data  points 
compute  each  smoothed  data  point  (YC) -  Since  NP  data  points 
d  to  coinputi!  each  smoothed  point,  M  data  points  are  lost 
bt.'ginning  and  e*nd  of  array  VC,  where 

(NP-1 ) /2 . 


f 

I 


Method 


The  first  (MM)  and  last  (NN)  array  indices  for  which  YC(I) 
are  computed  are  determined  as  follows : 

MM=M  t  1 

NN=N  -  M 

where  M  is  defined  above  and  N  is  the  number  of  original  displace¬ 
ment  points  in  array  Y.  Subroutine  QLSQ  is  called  to  compute  the 
^1'  ^2'  each  of  the  I  smoothed  points  which 

are  then  computed  as  follows : 

YC(I)=C^  *  X(I)^  +  *X(I)  +  C^. 


A  flow  chart  for  this  routine  is  shown  in  Figure  8. 


Error  Diagnos tics :  NONE 

Subroutines  Required :  QLSQ 

Argument  List:  X  =  array  of  independent  variable 

Y  =  array  of  dependent  variable 

YC  =  array  of  smoothed  dependent 
variable  data 


N  =  number  of  oriuinal  displace¬ 
ment  versus  time  data  points 

NP  =  number  of  points  used  to 

compute  each  smoothed  data 
point 


Subroutine  Length:  75^ 


2.2.4  Subroutine  DERIVl  (X,  Y,  YP ,  N, 

Subroutine  DERIVl  computes  the  derivative  (VP)  of  the 
dependent  variable  Y.  A  quadratic  least  square  fit  of  NP  points 
is  used  to  compute  each  derivative  point;  thus  j^oints  arc  lost 
at  the  beginning  and  end  of  arr.y  UP; 
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K  =  M  4-  M  *  ID, 


h.-i 

M  =  (NP  -  i) /2 , 

ID  =  1  for  first  derivative,  and 

ID  =  2  for  second  derivative 

t.  t nut  loi  ID  -  i,  array  Y  contains  displacement  data  which 

already  been  smoothed  using  a  quadratic  least  square  fit  over 
P  chus,  M  points  have  already  been  lost  from  the  original 

la;  t ^cement:  data.  For  ID  -  2,  array  Y  contains  first  derivative 
V’^ioc^ty)  data  which  starts  at  array  location  Y(2*M  +  1). 

Method 

The  first  (MM)  and  last  (NN)  array  indices  for  which  YP ( I ) 
; -j  'empated  are  determined  as  follows: 

MM  =  K  +  1 

NN  =  N  -  K 

here  K  and  M  are  defined  above  and  N  is  the  number  of  original 
ijplacement  data  points.  Subroutine  QLSQ  is  called  to  compute 
he  Cw  and  coefficients  for  each  of  the  I  derivative 

oints.  The  derivative  YP(I)  is  then  computed  as  follows: 

YP(I)  =  2*  C^*X(I)  +  C^. 

A  flow  chart  for  this  routine  is  shown  in  Figure  9. 

Error  Diagnostics :  NONE 

Subroutine  Required :  QLSQ 

Argument  List:  X  =  array  of  independent  variables 

Y  =  array  of  dependent  variables 
(displacement  or  velocity) 

YP  -  array  of  derivative  data 

N  =  number  of  original  displace- 
ment  versus  time  data  points 

P  -  numbe  r  o  f  points  used  to 

computt.-  each  tiorivativc  point 


V 


I  --urrv-  ■’ 

lutjnt  .ii 


acc‘ ^  1  ‘.M"  K  :  ■  • 


iubr oi: t  me  Loncth: 


'  e « v.it  1  ::o  eL.J^'  (a/  V,  Ni,  N  J  ,  C) 

Lib r- ' '.1 1  i  ne  ’jLe,.  uses  t:ho  n-t.hcj  e 
It'/  the  .riabi'at  ie  l’ch"  m ‘i.c  leu  t s  , 


L  :\e  torrr. : 


'b  ,  X  -  C 


:or  rX  data  r/oints  (XX  X2  -  Xl  ■*  1: 

X 1  t  o  X  2  .  r  ma  s  t  be  an  od d  i n  t.  e a er 


Method 


The  independent  variable  X(T)  is 


■F ,  where 


FF  =  X (NN) , 

,,,,  N1  4-  N2 


XP  (  r>  -  X  (  I  )  -  Ff 


The  vTuadratic  equation  in  terns  ot  the  t  aim  i  .:0 ^ 
variable  is 


*  XP^'  f  A.,  XP  4 

The  least  square  residuals  are  a  minimum  wh»' 
tions  are  satisfied: 


X.  * 


xp'^  A,,  *  ::  xp^  +  A- 


A,  *  ■  XP'  +  Am 


XP-  +  A^  *  XT' 


*  I'-'j 


where  summations  of  XP  and  Y  are  computed  for  indc:-;  I  c.jual  ;;1 
N2.  Determinants  are  used  to  solve  the  above  systein  o:  equata 
for  the  coefficients  A^,  A^,  and  A^.  The  C'^,  A,,  j.-.d 

are  computed  from  A^,  A^/  ana  A^  as  follows: 


C  =A  -  2*  ^ 

22  ■'!  '  ^ 


*  FF‘ 


A  flow  chart  for  this  routine  is  shown  in  Fiaure  10. 


Error  Diagnostics : 


NONE 


Subroutines  Required :  NONE 


Argument  List: 


X = a r r a y  of  i n d p n d t' 


Y  =  a r  r a of  d p n d e i ^ t  v a r  h'\  ' 

Nl=index  of  first  point  used 
in  fit 

N2= index  of  last  point  used 
in  fit 

C=array  containing  quadratic 
coefficients . 


Subroutine  Lenath:  134 ^ 

- -  8 


2.2.6  Subroutine  ROTATE (N , J1 , IPR) 

Subroutine  ROTATE  translates,  rotates,  and  calibrates 
on-board  camera  data  stored  in  arrays  x  and  z.  All  data  are  ^ 
lated  to  a  coordinate  system  through  the  sled  range  reference 
(first  X,  z  point  for  each  time) .  The  axis  is  then  rotated  s. 
angle  between  the  sled  range  reference  and  the  sled  reference 
(second  x,  z  point  for  each  time)  is  the  same  for  all  time 
i.e.,  all  angles  between  the  sled  range  reference  and  slc'i  r*  : 
ence  are  the  same  as  the  anale  at  time  zero.  The  data  i-- / 
translated  back  to  the  initial  coordinate  system  (at  ‘ 


3  6 


1 


Method 


For  the  first  time  station^  the  ran^e  x  and  z  data  are 
subtracted  from  the  sled  reference  x  and  z : 

X1=X(1,2)  -  X(l,l) 

Zl-Z(i,2)  -  Z(i,l)  . 

These  differences  are  used  to  compute  the  reference  angle 

3-^arctan  (  Zl/Xl) 

R 

If  V  is  less  than  zero ,  then 
R 

+  360. 

This  is  the  reference  angle  between  the  range  and  sled  re  fere nee 

points.  For  all  other  time  stations,  the  axis  through  the  range 

reference  is  rotated  to  make  the  angle  between  the  range  and  the 

sled  reference  points  the  same  as  6  .  Note  that  for  this  first 

H 

time  station  none  of  the  x  and  z  array  data  are  rotated  or  trans¬ 
lated  . 

For  time  stations  1=2  to  N,  the  following  are  computed: 

(a)  All  data  (J=2  to  8)  are  translated  to  a  coordinate 
system  through  the  range  reference  as  fol lows : 

X(I, J)=X(r, J)  -  X(I,1) 

Z(I,J)=Z{I,J)  -  Z(I,1) 

(b )  Angle  9 ^  is  computed  from  the  sled  reference  dif¬ 
ference  : 

9^=arctan  [Z(I,2)/X(I,2) ] 

If  ■}  .  is  less  than  zero,  then 
1 

4-  360, 
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f- 

(c)  An^le  IS  the  an  rle  by  wl'iiah.  rho  I  " 
been  rotated  with  res;'»ict  ^o  the  initial 

~  '  1  R  * 

(d)  The  inv^erse  rotation  (or  rota  ti  or.  bv  -  is  r 
puted  as  follows  for  parameters  J-2  to  S: 

X ( I , J) -X ( I , J)  *  cos-  +  Z(J,J)  *  sin- 
Z  (T  ,  J)  =  -X(  I  ,  J)  *  sin  +  Z(I,d)  *  COS'- 

The  data  points  are  then  translated  back  to  thn- 
initial  ranee  coordinate  system  (at  time  zero; : 

X  (I  ,  J)  =X  (I  ,  J)  r  V  (1  ^  1) 

Z{I,J)=Z(I,J)  Z(]  ,  P 

Ail  X  and  z  data  tor  pa  ranao  r s  J-Z  to  9,  are  con 
verted  from  counts  to  feet : 

X(I,J)=X(I,J)  *  CAL(J) 

Z(I,J)=Z(I,J)  *  CAL(J) 

This  subroutine  also  prints  a  listing  of  frame  number 
versus  parameter  x,  z  data  in  counts  when  IPR  is  less  than  on.e 

A  flow  chart  for  this  routine  is  shown  in  Figure  IP 


le 


(f ) 


Error  Diagnostics : 
Subroutines  Required : 
Argument  List : 


Blank  COMMON 
Variables  (used  by 
this  subroutine) : 


NONE 

NONE 


N 


J1 


IPR 


IFR 

X 


numiier  c;:. 

d  is 

p  1  :  •-P 

t ime  data 

oo : 

n  t  s 

index  of  f 

I  r  s 

;,.-a  ra^  *  *  t  *  > 

sled  reft^r 

one 

e/  F‘- r  P- 

J1^3;  for 

JTV 

PF-I ,  P 

’.nint  oc'nt 

r  I 

:  1, 1  r  ip-*  ‘  ^  ‘  r 

a  rray  cent  a  i  n  ;  r  :  !  r*  it' 

a  r  ra  y  '‘P  x  a  i  sp  Pi  ■  'or  t  •  n  t 


a  r ;  a\- 


a  •• 


CAl  = 

array 

o  f  ca  1  iL  r. . 

lee  t 

[.ivi  t.’e  am 

XD  = 

dummy 

array  u.sm^i 

data 

tor  prir'’!t,;r. 

ZD  = 

dummy 

a  ]  1  S: '/  a  S  ■  :  t 

U  a  L  a 

Lor 

Subroutine  Length : 

Blank  Common  Length: 

2  3434 

8 

2.2.  /  Subroutine  MEANI  (N^X,Z) 

Subroutine  MEANl  computes  the  ire  an  arid  t 
ieviation  about  the  mean  for  x  and  z  axis  sled  r- 

Me thod 

tompute  the  mean  of  the  x  and  z  axis  d.;i 


1 

AVX  -  -  2  X(I) 

1  =  1 


1 

AVZ  =  -  2  Z (I) . 

N 


Then  compute  the  standard  deviation  of  the  dat.i  a 
X  and  z  axis  value: 


SMX  =  V  N  , 

2  [X (I) -AVX] " 
1  =  1 

N-l 


SMZ  =  /  N 

2  fZ(I)-AVZr 
I  =  i 


Finally,  print  th^'^  moan  arui  stanriarc]  ne'Via,  t  inr)  r;n  the  standvir- 

output  f 1 ie . 

A  !' i  (.'V  oi.att  fMi  Ml'S  u  i  n-  1?. 

:;oNK 

N  -  number  o- f  x  and.  r  data 

po i n  t s 

\  “  aT:ra\-  ot  y  ^yi:-  yita  O’-nnts 
Z  -  array  of  7  axis  data  points 

2.2.8  Subrcitine  MEAN2  D^,  XD,  ZD_, __S^X_^_SMX2  , 

smz_2]  "  . .  ^  . .  ^  . . " 

Subroutino  MEATIZ  mnnoutes  the  mean  and  standard  -ieviation 
of  unsmoothed  minus  smoc:)thed  x  and  z  axis  data. 

tiiod 

The  sums  and  sums  of  squares  of  the  un smoothed  minus 
smoothed  data  are  computed  as  follows: 

N2 

SMX  -  :  Old)  -XD(T) 

I=N1 

N2 

SMX 2  =  "  [nr(T)  -  xu(ni 

I^Nl 

N2 

3M'/.  -  .  DC(r)  -  znd) 

I=N1 

h  2  ^ 

dMZ2  -  [  DC  (  I  i  -  I  1  '  )  *■ 


F r  r :Di  D i aj^no_s  1 1  c s  : 

dillLi  -  SL?  • 

Arquir.ent  _  L  i  s  t  : 


Subroutine _ ben^j^th  : 


:  ’i3c;i  .'ihovo  are  defined  in  the  arquniGnt  list  belov.’. 

vdMX  and  SMZ)  and  standard  deviations  (SMXf  and  SMZ2; 
:e..i  from  these  sums  and  sums  of  squares: 


rNN-1 


mo  a  n 


I 


SMZ2  ~  standar’i  -.iu’;  i  ■ ;  v  *  . r*  1  .iXiH 
^.1  a  t  <_i 

a  UP  r  o  u  1 1  iu_'  3  * 

..  1  .  }  [  \i  t-  :*  1 '  I  r’  a  r  .1 :  on  t '";  i:  1  np  at.  to  HI  F 1  aH 

iO  tL; ;  j u  r'  1 1.  .  i  j ii  i  j  r  ■  a.i  t  a  !.  o  I'  *  '. ■  : i  i  :■'  H I.-  •  '(  a a->  ;  :-  f 

*••'•  -  5  i  t  L  z  i  iiv)  .  'IHia  editiiuj  :  lavoHes  ril:’.  :' r  aii.e- L' 

"  :  ^  ,  a:  .ir:a  oC'S  ‘.'ocrd  i  na  tes  to  {.lano  of  Ziotico  ('o;r  oo  :  oa  i  ^.-s 

’■;ro/ers  U'O  factojis.  The  dioitizin^-;  function  ..rovidr‘S  tho  :rarT:e- 


oy- :  raite 

"readinq"  or 

t  he 

projected  film 

.*^5  a  me  coord 

1  nates.  The 

I e lore  n  c  e 

s,  or  "standa 

rds  , 

.  "  required  to  : 

-  rocess  the 

data  .lie  Ill 

’  ,  lu '  1  c> 

ren.u/  P'UlseS 

.ind 

s  urveyed  f i cu^  ■ : 

1  i  I  S  in  t  We) 

P'Kines  norma 

' '  t 

t'  ;  '  r  ,1  i  1  -j  ! 

til. 

camera. 

I'lininu  f  tfie  t ration  was  avZc^.Uu;-  ^  shea  ey  CwiiauJaii 

iho  averaie  filn^  speed  over  a  span  c;  f  approxiria  tely  150  frames 
f  ')  0  -I'.sec  .'  . 

llie  rirst  frame  in  which  trie  s  t  robo’scop  ic  flash  was  ob¬ 
serve  a  was  defined  as  t-0 .  The  strobe,  initiated  by  a  time 
.',vy  i.or.  r- u:  1  z  i  ro;  pui.se  wh  i  cuh  was  also  rec^oided  on  the  maqnetic  tape 
:^j‘o:  .u.' t  ...i  1  i '/  oi\a-s  t  indi'Mtiun  within  2.0  milliseconds 

•  :ru'.,/  .it  the  nMiiiinui  fi  iiU  S{:'eee!  f  500  f  ranges  per  second  with 
i  lit"  si. utter.  Hince  the  flasii  is  not  observ^ed  in  film  frame 
-0fM)l  ana  is  r;bserved  iri  film  frame  0000,  it  is  apparent  that  it 
wis  initiated  between  the  closinq  of  the  shutter  on  film  frame 
-0001  and  the  closinq  of  the  shutter  on  film  frame  0000.  Durinq 
i.'  St  tests,  the  intensity  of  tile  first  observed  flash  would  in- 
ri  .;ate  tiiat  it  was  initiated  between  the  cl  os  me  of  the  shutter 
-p.  rran.G  -000  1  and  the  openina  of  the  shutter  on  frame  000.  If 
vf-.  !s  IS  the  iiast-v  the  t  inderat  ion  <‘c>uiki  considered  to  be 

'  j 

:  'cu  r  i  t  e  t.  /  -0  ,  i  .  2  mi  1  L  i  secrnids  ,  i  .  ^  : 


1^. 


!:  r  M  j:  .  :  .;i  t.  .j t  l--  ti’ 

•:  :k‘  !'caain':s  :  t  in./  .in+.ru'  [ .f  rn./ ♦  r- :  i:its  .)i:  1:1^.;  suL;r^v’ 

r  t  .  1  r  i  t.  hit  t:ho  f  ('i  i  1  ;.}W  :  ti' :  Lu^  Knt.'iw^. 

' -1  .'htj  r.L'i\\\.il  to  lIoj  lane  ‘..r  syitimeti'v  of  th 

:o:D'ov;t,  I  :  ^  that  oIs.iriL'  to  toich  t  two  pianos,  oarallol  to  the 
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ana  the  nearer  reference  piaoios  wore  i  i  otit’ea  :  o  a.^  tiot-s.  'Ihhe 
t'eauines  of  these  coordinates  wane  t.hen  /e.LO'aa»':  air;  tno*  ai  oral 
.distance  between  the  ave raced  coordinates  or  eaon  r^air  was  calcu¬ 
lated.  Dividing  each  of  these  -rijital  aistanct.-s  by  the  CL>rre- 
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which  the  tiducials  lay,  tin*  disrc;c/-  ah.  a.  a  *  lo;  ::tLoaI  ai;.s  from 

the  focal  point  of  the  lens  to  oaoh  i.’t  these  1.0. mes  3r;a  the  ;  lane 
of  symnietry  could  then  be  calculated,  idee  rbpuie  4; 

Prior  to  each  test  run  the  bread  tit  1' f  *he  sub;^ec't  was 
m.easured  at  eacii  track  inq  fiducial  locali.in  witn  an  a  n  th  r  or  o:r.e  ta- r 
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plane  of  symmetry  to  eacri  rackini  ri  ona  w.oi  t-r;;^*c  -  s  ont'- 
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were  added  to  the  file.  This  file  was  then  copied  on  the  card 
punch  and  printer  as  a  time  saving  measure  in  case  the  disk  file 
should  be  accidentally  purged. 

At  this  point  the  program  HIFPD  could  have  been  attached 
and  executed;  however,  the  normal  procedure  was  to  obtain  the  card 
files  and  submit  them  in  the  batch  mode  on  an  overnight  schedule. 
This  permitted  the  connect  time  to  be  used  for  read-in  and  editing 
of  additional  data  files. 

Descriptions  of  specific  procedures  are  presented  in  later 
sections,  and  the  composition  of  a  deck  assembled  for  a  typical 
computer  run  is  illustrated  in  Figure  14, 

2.2.10  Description  of  Program  HIFPD  Input  Data  and  Parameter 
Codes 

I.  Program  Setup  Cards 

A)  The  first  card  in  the  setup  deck  must  contain  the 
date  in  columns  1  to  10;  for  example,  12  FEB  74  or  FEB  11,  74 
(only  one  date  card  per  job) . 

B)  The  following  four  or  five  cards  are  required  for 
each  rest  in  the  computer  job: 

Card  Number  1 
Column  Format 
1-80  8A10 

Card  Number  2 

1-  5  A5 

6  II 

7  1 1 

1 - omit  printout 


Data  Description 


80  columns  of  alphanumeric  information  which  will 
be  printed  at  the  top  of  each  page . 


Test  number 

IRX — flag  controlling  polarity  of  x-axis  data  - 

blank  or  0 - no  change 

1 - change  sign  of  x-axis  data 

IPR-- f lag  controlling  input  data  and  difference 

nrintnnt.  -  blank  or  0 - nrinl"  data 


I 
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Card  Number  2  (Continued) 


Column 

Format 

Data  Description 

59-60 

12 

NP--number  of  data  points  used  in  the  quadratic 
fit.  NP  must  be  an  odd  number  3;  default 

is  NP=11. 

61-65 

F5.0 

DYLP--ve loci ty  and  acceleration  linear 
increment  per  inch  (see  parameter 
Default  is  2.5,  5,  10,  20,  or  30 
on  the  range  of  the  data . 

plot  sea 
IPL)  . 
depend! n 

Card  Number  2A 

—  required  only  when  lADJ  >  0, 

1-10 

FIO  .0 

Time  calibration--number  of  frames  per 
May  be  left  blank  if  film  speed  is  500 
per  second. 

second . 
frames 

11-20 

FIO  .0 

SLED  calibration  in  counts  per  foot 

21-30 

FIO.O 

HIP  calibration  in  counts  per  foot* 

31-40 

FIO  .0 

KNEE  calibration  in  counts  per  foot* 

41-50 

FIO.O 

SHOULDER  calibration  in  counts  per  foot 

* 

51-60 

FIO.O 

ELBOW  calibration  in  counts  per  foot* 

61-70 

FIO.O 

HEAD  POINT  1  calibration  in  counts  per 

foot 

71-80 

FIO.O 

HEAD  POINT  2  calibration  in  counts  per 

foot 

NOTE:  The  decimal  must  be  punched  in  the  above  data  fields 

unless  the  data  are  integer  and  are  right  justified. 


Card  Number  4 

1  11  9  in  column  1  to  indicate  the  end  of  test  input 

NOTE:  Cards  1,  2,  and  3  are  placed  in  front  of  the  test  deck 

and  card  4  is  placed  after  the  last  frame  in  the  test. 


C)  The  last  card  in  the  input  deck  (before  the  end  of 
job  card)  contains  the  word  "END"  in  columns  1  to  3 . 


*The  calibration  "field  for  these  variables  must  l;e  zero  ^ 
for  ITYPE=i. 
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Card  Number 

_2 

(Continued) 

Co 1 umn 

Format 

Data  Description 

41-47 

17 

z  for  Head  Point 

1 

48-54 

17 

X  for  Head*  Point 

55-61 

17 

z  for  Head  Point 

2 

IV. 

Card  Formats  for  the 

Test  Input  Da 

ta  Car 

Card  N 

umber 

1 

2-  5 

14 

Frame  number 

6-12 

17 

X  reading  in  counts  for  Ranee 

data 

13-19 

17 

z  reading  in  counts  for  Range 

data 

20-26 

17 

.<  for  Sled 

27-33 

17 

z  for  Pled 

34-40 

-L  / 

tb.  r  rPojd  Point 

41-47 

17 

‘  O'  Heafi  P^')int 

1 

48-54 

A  ^ 

ro.  r  Head  [’o:nt 

2 

55-61 

NOTE  : 


17 


V. 


for  Head  Point  2 

=1 /  only  1  data  card  is  read  for  each  frame. 
Ge  ne  r a  I  G o mme  n  t  s 


For  ITYP^'  = 


A)  ;f  there  are  any  errors  in  frame  or  card  identi¬ 
fication  numbers,  error  statements  will  be  printed  at  the  top  of 
the  first  output  pace  for  the  test  and  all  computations  after  the 
listing  of  the  inpuf  data  wilJ  be  deleted. 

3)  A  maximum  of  bP')  frames  (MAXN)  will  be  road  for 
each  test.  If  the  test  input  deck  contains  irore  than  100  frames, 
only  the  first  ^-00  will  be  processed.  This  could  be  char.cc'd  b'l 
changing  MAXN  and  the  array  dimensions  in  the  j.'rocram. 

6^ )  bf  the  c a  1,  i  r 1 1  o n  f  a c t ( r  f r ^ r  a  ’/a  r  i  > i b  1  o  i  s  m i  s - 
inq  flag  ICAL(vT)  is  set  oc|ua  1  to  zero  and  that  \Mriai'jIm  will  io 
deleted  from  the  analysis. 


T.ent  per  inc 


tne  [;V:  P  r  - 

DV  Will  ^ 

j  0  ].  i  ‘  r  P  i  ;  ; 
D'i  LI  IS  ,  c  :  1 
K^ard  ^2,  Co 
zo  2)2  L.L 
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b  ]  *:.  cc  I  \c  ■ .  ■ 
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TABLE  1 

DEFINITIONS  OF  PRETEST  DATA  ITEMS 

I  tern  Definitions 

RS  Restraint  Harness  Material  1 

GN  Nominal  Impact  Acce lo ra  1 1  or.  i -G,  J 
RN  Test  Number 

DT  Date  of  Test  (Year,  y.onth,  Day) 

1  Weight  (Kg) 

2  Height  of  head  band  fiducial  above  sled  deck 

3  Height  of  shoulder  above  sled  deck 

4  Height  of  iliac  crest  above  sled  deck 

5  Trageon  to  9TAP  origin 

6  Trageon  to  headband  fiducial  distance 

7  Shoulder  to  elbow  distance 

8  Elbow  to  wrist  distance 

9  Hip  to  iliac  crest  distance 

10  Hip  to  knee  distance 

11  Mid-thigh  to  knee  distance 

12  Knee  to  ankle  distance 

13  Breadth  at  trageons 

14  Breadth  at  shoulders 

15  Breadth  at  elbows 

16  Breadth  at  hips 

17  Breadth  at  knees 

18  Breadth  at  ankles 

19  Mid-shoulder  height.  Distance  along  seat  back  plane  from 
line  of  intercept  of  seat  pan  plane  and  seat  back  plane 

to  a  line  normal  to  the  seat  back  and  tanoent  to  the  upper 
surface  of  the  shoulder  at  the  centerline  of  the  left 
shoulder  strap. 


SUMMARY  OF  PRETEST  DATA,  SUBJECT  A22 


SUMMARY  OF  PRETEST  DATA,  SUBJECT  B22 
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SUMMARY  OF  PRETEST  DATA, 


Sl'MM^^RY  OF  PRETEST  DATA,  SL'BJl'CT  C2 


2.3.4 


BT 


Photogrammetric  Calibration 

Calibration  of  conversion  constants  was  based  upon  the 
method  illustrated  in  Figure  4  .  The  fiducials  on  the  lexan  pane 
(y=  ^32.062)  and  the  side  of  the  seat  pan  (y=  -8.0)  were  digitize 
and  the  average  conversion  factors  for  those  planes  were  calcu¬ 
lated  to  be  2787.13  counts  per  foot  (cpf)  and  1650.74  cpf  respec¬ 
tively  . 


Referring  to  Figure  4  the  following  values 


r  =  r^^  =  1  foot 
o  02 


r  =1650.74  counts 

P 


r«  =2787.13  counts 

p2 


s  “  s^^  =  24.062  inches . 
o  0  2 


were 


ass  1 ' 


The  distance ,  r ,  from  the  axis  at  which  the  ray  from 
to  the  focal  point  penetrated  the  object  2  plane  was  calculate 
to  be  : 


r  _  rp 

^02  ^p2 


r=l  foot  X 


1650.74  countSv 
2787 . 13  counts 


r  =  .592  foot  =  7.107  inches . 


The  apparent  distance  from  the  focal  point  to  the  plane 
y=  -8.0  inches  was  calculated  to  be: 


s 

o 


s 

o 


.s  -s 
o  o2 


r 

o 


r 


02 


-r 


) 


s 

o 


24,062  inches 


li 


4.893 


inches 

inches 


) 


s  =  59.01  inches . 
o 
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Ca  i ‘:ii  l.a  t  1  cm  f  .1  acnversion  constant,  f  ,  for  an\'  oiane, 

n  -  " 

y~n,  was  then  accoiap  I  ishcd  us:  no 

5^ 

*  ■-  ■ — - X  16 “"0.7 4  c'ounts  uer  foot 

n  s  +■  i  X  - } 
o 

Alien  y“n~one  iialf  the  measured  brealth  cf  rhe  subject  between  an- 
thropc:me tr  1C  points  on  the  left  and  riuht  side. 

.  ?'  bati-i  ] le u c 1 1  o 1 1  Process 

The  data  reduction  process  consisted  of  data  editing, 
disitizin:,  and  electronic  data  processing.  Film  editing  and 
di-:itisin':  were  .ac*;om.pi i shed  on  the  Producers  Service  Corporation 
::/:del  rVR  film  analyzer  (P'CR)  interfaced  with  a  teletype  terminal 
V TTV ;  with  paper  tape  punch.  Tape  to  card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  System  at  the  Aeronautical  Systems  Division's  Digital  Computa¬ 
tion  Facility  lASD/AD)  in  Building  676,  Area  B,  Wr i gh t-?a tter sen 
Air  Fo  rce  Base  . 

2  .  3 . 5 . 1  Editing 

The  primary  camera  film  was  viewed  on  a  light 
table  and  the  frames  and  .01  second  timing  pulses  were  counted 
throughout  the  event.  The  frame  exposure  rate  (frames  per  second) 
was  scanned  for  consistency  and  the  average  frame  rate  was  calcu¬ 
lated.  During  each  run  processed  the  frame  rate  r  constant, 

+  1  frame  per  second,  during;  the  10  0  millisec  cq  ''•lowinu  initia¬ 
tion.  During  the  proa  ram  film  sper-Mis  ranaed  from  46  2  to  49  F 
f  rames  second  , 

The?  film  was  mounteti  c>n  the  PVR  and*  was  trans- 
pr)rt(:‘d  forward  in  thi^  r'lne  until  the  ojjorator  obseri’od  th.at 

*:he  siihr*’’^  1  !oid  at^paront  ly  terminated.  The  nut, her  .  c'  th*' 

:t  w-is  r'W.^  1  .is  e  rm  1  na  1 1  ■  '  r;  t  \  . 


2  .  3  .  j  .  2  Di  qi  t  i 

Upon  complL^t  c;:  vn^-  t.Miiti;.*:  :  r 
film  was  transp'ortod  r^Vtjrsc  to  i  r*ani^-  o  t'-,  r:.  -  r  :  :  ^  :  t  :. 
which  the  strobe  tiash  was  observed. 


I.  Seat  id'rward  tiduoiai 

2  .  S e  a  t  a  1 1  t  i  d  uc  i  a  1 

3 .  Hip  f iduc ia 1 

4 .  Knee  tiduc lai 

5.  Shoulder  fiducial 

6 .  El bow  fiducial 

7.  Trace on  fiducial 

8.  9TAP  mount  fiducial 

The  diaital  a  lues  of  "iu-ss  s'oo::  .o--:  ,  :  r- 

ceeded  by  the  frame  number,  were  punched  irK.!-  sonoo*  :  n  i:.  :  lu 
format  (15,  8F7.0/I5,  8F7.0).  Each  of  the  SF'f.'i  lo^hhs  -or-tain 
four  pairs  of  coordinates. 

After  the  coordinates  pro;a"ctt;0  f  r.  *' :'ar..e  a 
were  digitized,  the  coordinates  from  each  succeod:nu  frar---  we,’rv.- 
digitized  in  the  same  sequence  until  frame  ISO  ■,  apf.>  re.  >.  i  nia  t  •  •  I  y  ' 
msec )  . 


1 

I 

j  2  .  3  .  5  .  3  Electronic  Da  ta  P recess,  i  no 


This  portion  of  tile  process  r^op.ii^o.:  tn:ca_' 
cedures,  data  preparation,  computation,  and  p  1:.;  t  :  . 


Data  Preparation:  Dunne  the  data  :  rep.iiari 
procedure,  the  file  recorded  on  punched  paper  taije  wos  ’^)mrvjrm.: 
to  the  computer  at  ASD/AD  from  a  TTY  via  voice  quality  .:nes. 
file  was  then  edited  to  correct  format  and/or  Ldiaicictt.c  eri'cs, 
and  was  batched  to  a  card  punch  for  creat  ion  :  t:iv'  i  ^ •  r-r.a lo-  ut  f 
Concurrently  ,  the  iden  ti  f  i  ca  t  ion  ,  t  rc  i  ,  oioa  .s  n>'*  :  i  a  ccuat. 

cards  required  by  program  Hll-npu  were  penciled  f-  j  '  ei  >e  wmd.  * 


card  file. 


I 


i?n 

lit. C'U 

The 


The  identification  card  contained  alphanumeric 
inrormation  in  cards  columns  (cc)  1  thru  80  which  was  printed  on 
output  tables  as  table  identification.  The  form  used  was  RSD 

STUDY,  SUBJECT--,  RUN - ,  YYMMDD,  material.  The  next  to  last 

.;try  is  the  date  on  which  the  test  was  conducted  in  terms  of  year, 
month,  and  day  of  month. 

The  control  card  contained  the  test  number  and 
yro^jram  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  in  Paragraph  2.2.10. 

The  conversion  constant  card  contained  the  film 
speed  (frames  per  second)  and  conversion  constants  to  be  applied 
ro  the  second,  third,  and  fourth  pairs  of  coordinates  on  the  first 
line  read  from  each  frame,  and  the  first  thru  fourth  pairs  of  co¬ 
ordinates  on  the  second  line  read  from  each  frame.  The  format 
lor  this  card  was  (8F10.0). 

Upon  receipt  of  the  card  file  of  PCS  coordinate 
readings,  it  was  merged  with  the  previously  punched  ID,  control, 
and  constant  cards,  and  the  computer  control  cards  for  submission 
to  ASD/AD  for  computation.  The  composition  of  a  typical  computer 
run  deck  is  illustrated  in  Figure  14. 

Computation :  Film  frame  coordinate  positions 

■:i  the  tracked  points  were  converted  to  2  dimensional  seat  coordi¬ 
nate  time  histories  by  program  HIFPD. 

The  PCS  coordinate  readings  of  the  two  reference 
iiducials  from  the  first  film  frame  were  used  as  the  basis  for  the 
location  of  optical  axis  relative  to  the  reference  points  and  for 
the  angular  relationship  between  the  axes  of  the  PCS  and  the  SCS . 
Readings  of  these  points  from  each  subsequent  film  frame  trans¬ 
lated  and  rotated  the  PCS  coordinate  system  to  coincide  with  the 
orientation  of  the  first  frame.  This  was  done  to  miinimize  errors 


iue  to  vibration  of  the  camera  during  the  test  event. 


Tht;  I  su  .1 

second  reference  n'uirit  w.is  .!  :  v  m  ,■ 

nates  by  the  C':.)rv/e  rs  i  or.  c(^r;star:t  vOir  . 

from  the  optical  axis  ot  each  of  tiu.*  tr'i->r'.: 
by  dividin  ;  its  t'CS  oooriinates  by  iis  caa'.'/  •; 
values  or  x  ana  t  a  i  s  p  I  aoeoen  t:  s  I’rtr.  tr.e  ^  t: 
fere  nee  point  was  thei'i  sabtraotad  rot:'  tn 
of  each  cf  tne  traokeo  pvvinrs  veil  air.:  :• 
point  r\.:\  ;  t  1 '.''j  :  t!:e  reieteita.  p>a:'. , 
calculated  vtoc  r  a  :  na  sysrer:  h..iv;  o-lj:.  ^rr.: 
of  the  aft  seat  rerererree  fiauc..:l. 

From  tha  ti:tc  niar  .r'm. 
positions/  lilFPD  computed  total  1 ,  .  i  ty 
histories  of  each  point,  fittina  a  ri'-'o/ 1 n  ; 
points  during  each  differentiation,  and  t 
acceleration  time  histories  of  the  9 TAP  m 
and  of  the  s ii o u i de r  about  the  ii i p  p o  i n  t ;  a o a  r 
quadratic  arc  to  eleven  points  during  euci.  ai 

The  resulting  time  his  t  r'  r  i 
tables  and  written  on  magnetic  tape  for  plot:. 

Plotting ;  After  ex  a  mi n  o  ^ i 
results  of  the  computation  revealed  no  apraro 
plot  request  was  submitted  to  ASD/'AD.  The  dr 
magnetic  tape  by  HIFPD  were  read  and  plot  tv.;-: 
COMP  Plotter. 

2.3.6  Results  and  Accuracy 

The  results  of  this  effort  were  deli 
tories  of  displacement,  velocity  and  acccler 
graphic  forms. 

Analysis  of  the  propaca;!  a,  orr 
points  resulted  in  a  n:aximum  estir.atuv:  vr  u 
points  except  the  elbow."  Fur  in--:  all  f -cm  : 
strated  lateral  mritcru:  t'^wari  t  ^'le  :  i.  ir.-'  '  :  :■ 

^Graf,  P.A.  and  H.T.  M  hl:"an.  div’n  ■  ; 

Data,  AMRL-TR-79-':’6  ,  April,  y.d 

Laboratory,  a  r  i  :h  l  - 1  U:  t- 1- r  A:r  c  .c- 


These  iatcrc.: I 


extremities  extended  for^’ard  from  the  seat.  These  lateral  tjxcur- 
s  ions  of  the  elbows  caused  the  breadth  across  the  elbows  tc  arrro.'t 
but  not  become  less  than,  the  breaa  :i  across  the  shoulders  at  .maxi 
mum  extension  of  the  arms.  The  mean  of  the  maximum  lateral  ^.-xcur- 
sion  of  the  elbows  was  1,96  inches  from  a  mean  lateral  ^iisolacemen 
v'r  .10.84  inches  fromi  the  plane  of  symmetry  to  8.3  6  inches.  Thie 
estimated  error  in  solutions  tc  elbow  coordinates  at  miaxir/am  ex¬ 
tension  of  the  arms  was  0.23  inches. 


From  a  study  conducted  by  H.  T.  Mohlman  of  the  L'DPI  ,  the 
effects  of  smoothina  the  raw  solutions  and  the  first  and  seccnc 
derivatives  may  be  summarized  as  follows : 

(1)  Attenuation  of  peak  values  of  displacemien t ,  velocity 
and  acceleration  is  a  function  of  frequency. 

(2)  The  eleven  point  quadratic  fit  yields  closer  correla 
tion  than  either  seven,  nine,  thirteen,  or  fifteen 
point  quadratic  fits. 

(3)  The  attenuation  of  any  specific  displacement,  veloci 
or  acceleration  peak  would  be  reasonably  predictable 
if  the  frequency  of  the  peak  could  be  properly  inter 
preted.  A  technique  used  to  evaluate  the  frequency 
response  characteris tics  of  the  smoothinq  filter  is 
described  in  a  later  section  (page  115}  and  is  de¬ 
tailed  in  the  above  reference  report. 

V'sc i i lations  in  velocity  and  acceleration  curves  are 
predominatly  artifacts  induced  in  the  smoothinc  fit. 


The  :•of^^^cnced  w’ork  included  ^nves ticat ion  of  sarr.pTinc 
theory  and  application  of  the  quadratic  fits  to  digitized  photo- 
imetric  lata  acquired  during  BPRD  tests  172  and  17  3. 

The  accuracy  of  the  digitizinc;  was  checked  usinc  the 
standard  deviation  about  the  mean  for  the  solution  of  the  rear 
seat  reference  point  with  respect  to  the  forward  reterence  point. 
The  standard  deviations  were: 


ir  -no  h^ampie,  0.0044  feet, 
vO.int.a  whivjh  is  consider- 
i o  ’/ 1  ,r^  r  1  O' n  used  to  estimate 


The  eifect  cf  smocthin.*.:  the  ais placement  solutions  of  the 
t loosed  .oii.ts  are  indicated  in  Table  11,  which  presents  the  stan- 
..aru  noviat:.cns  of  tne  difference  between  unsmcothed  and  smoothed 
cciip^  neri ts  C't  the  ais  t  lacemen  ts  taken  fr':m  a  representative  sample 
o t:.e  tests.  The  resultant  standard  deviations  in  the  sampi.e 
ran  a f  r oi^  .029  i r. c h  (test  1  0  ,  ii i p  i  to  0  .  C  5  2  inch  (test  993, 

-I  j  ooint  1;  ,  v/ere  raais ider ah ly  less  th.an  the  estimated  maximum 
e r r r  or  0.12  inch. 

2.4  "iOl.,  :^.JUPT  PROTECTTCh  CCMPARTSON 

Cadaver  subjects  have  been  wa. dely  used  to  assess  patterns 
anc  seventy  r. 3ury  resulting  from  exposure  to  impact  environ- 

mciito.  These  ^essments  have  been  used  as  the  basis  for  predict- 
in  *  "he  rrebabi^.ity  of  injury  to  livino  beinos  who  might  be  sub- 
pocto'.;.  r<'  similar  envi ronme^n ts  .  An  invest iaat ion  of  the  reliability 
of  th^o  'ach  to  iipjury  protection  assessments  was  required  to 

..oi'p.iio  :esu.;,ts  between  livinc  subjects  and  cadavers. 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOThED  AND  SMCX^THED  D 1 SP EAC’EMENT  IN  FEE' 


The  Impact  Protection  Branch  of  the  Aerospace  Medical  Re¬ 
search  Laboratory  (AMRL/BBP)  conducted  a  test  program  to  compare 
the  responses  of  live  anesthetized  baboons  with  those  of  baboon 
cadavers.  The  intent  was  to  match  live  animals  with  cadavers  of 
similar  anthropometry  in  pairs  for  comparative  analysis.  The  data 
presented  herein  were  derived  from  cinematographic  recordings  of 
the  body  segment  responses  of  the  subjects  during  -50  simula¬ 
tions  conducted  on  the  AMRL/BBP  Horizontal  Impulse  Accelerator 
Facility  during  December  1977  and  the  AMRL/BBP  Hydraulic  Decelerator 
Facility  during  May  1978.  These  facilities  are  both  located  at 
AMRL/BBP,  Wright-Patterson  Air  Force  Base,  Ohio. 

Eighteen  tests  were  conducted  on  the  Horizontal  Irr.pulse 
Accelerator  Facility .  Six  tests  were  conducted  using  a  scaled 
three-point  harness,  three  (1444  thru  1447)  involved  live  anes¬ 
thetized  subjects,  and  three  (1449  thru  1451)  involved  cadavers. 

A  camera  malfunction  during  test  1446  resulted  in  loss  of  photo 
data  from  that  test. 

Six  live  anesthetized  subjects  (tests  1453,  1454,  1456, 
1457,  1459  and  1460)  and  six  cadavers  (tests  1462,  1463,  1464, 

1466,  1467,  and  1468)  were  exposed  to  the  impact  environment 
while  restrained  with  a  military  type  harness.  Photometric  data 
from  these  twelve  tests  was  good  and  was  reduced. 

During  the  -50  simulations  conducted  on  the  Hydraulic 
Decelerator  Facility  in  May  1979,  six  live  anesthetized  subjects 
(tests  103,  104,  105,  106,  108,  and  109)  and  six  cadavers  (tests 
110,  111,  113,  114,  115,  and  116)  were  exposed  while  restrained 
with  a  military  type  harness.  Because  of  a  camera  malfunction 
during  test  110,  photometric  descriptions  of  the  responses  of 
only  five  cadavers  were  available  for  comparison. 

2.4.1  Requirements 

Primary  requirements  of  the  photometric  data  analysis 
effort  were  to  derive,  from  cinematographic  recordings,  time 
histories  of  coordinate  positions,  velocities,  and  accelerations 
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positive  to  the  right  of  the  seat  along  the  horizontal  line,  and 
the  2-axis  was  positive  upward  along  the  zenith  line. 


The  Photosonics  model  IB  cameras,  with  8mm  lenses,  were 
mounted  onboard  the  sled.  The  primary  data  camera  was  mounted 
with  its  focal  point  at  coordinates  (11.84,  53.12,  3.88)  inches. 

Its  optical  axis  was  normal  to  the  plane  of  s^onmetry  of  the  seat. 
The  front  view  camera  was  mounted  with  its  focal  point  at  coordi¬ 
nates  (63.65,  0.75,  4.0)  inches.  Its  optical  axis  was  parallel 
to  the  X  axis. 

Seat  reference  fiducials  were  applied  to  the  RH  side  of 
the  seat  frame  structure  at  coordinates  (2.28,  5.88,  -3.7)  inches 
and  (10.70,  5.88,  -4.29)  inches. 

2.4.3  Photoqrammetric  Calibration 

Review  of  films  of  the  first  tests  demonstrated  severe 
’•barrel"  distortion  of  the  image  (magnification  decreased  as  dis¬ 
tance  from  the  optical  axis  increased) .  A  grid  board,  made  of 
flat  black  plywood  with  a  1-inch  by  1-inch  grid  of  white  threads, 
was  held  with  its  face  in  the  plane  y=0  and  was  photographed  on 
the  primary  data  camera.  The  grid  board  was  then  held  with  its 
face  in  the  plane  x=.5  inch  and  was  photographed  on  the  front  view 
camera . 

The  film  image  recorded  on  the  primary  data  camera  (side 
view)  was  mounted  on  the  Producers  Service  Corporation  model  PVR 
film  analyzer.  The  grid  system  was  rotated  until  the  horizontal 
grid  line  closest  to  the  x-axis  and  the  vertical  grid  line  closest 
to  the  y-axis  were  parallel  to  the  respective  axis. 

The  intersections  of  the  vertical  grid  line  images  and 
the  x-axis  were  digitized  from  the  line  which  coincided  with  the 
y-axis  to  the  grid  line  32  inches  forward  from  it.  This  was  re¬ 
plicated  twice  and  the  three  sets  of  readings  were  averaoed.  7he 
average  readings  were  plotted  versus  grid  board  displacement 
(Figure  18).  Since  program  rilFPD  was  used  to  process  the  data, 
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PROJECTED  IMAGE  DISPLACEMENT  (X  100  COUNTS 


0  5  10  15  20  25  30  35 


GRID  DISPLACEMENT  (INCHES) 


Figure  18.  Average  and  Modified  -SOGy.  Readings  Versus 
Grid  Displacement . 


It  was  incumbent  that  the  readings  be  mc;dif:e,:  r)r<-.''er.t  t  I::.*  : 

relationship  between  observed  point  distance  from  thc^  ‘)r:tical  i::..' 
and  corrected  image  distance  from  the  optical  axis. 

As  IS  the  case  with  most  fine  wide  angle  lenses,  zhe 
linear  displacement  of  an  image  point  from  the  optical  axis  apprcxi-^ 
mated  a  direct  relationship  to  angular  displacement  from  the  opti¬ 
cal  axis  to  the  line  from  the  focal  point  to  the  observed  point. 

From  readings  of  gr^d  lines  in  the  relatively  undistcrted 

central  portion  of  the  image  frame  (cos  .  •  .99)  and  the  fiaucval;-: 

on  the  seat  frame  structure,  the  apparent  distance  from  the  focal 

point  to  the  grid  was  calculated  to  be  60.6  3  inches  by  rhe  rr.eth^d 

illustrated  in  Figure  4.  Using  an  arc  of  radius  60.63  inches 

each  reading  was  modified  by  dividing  by  the  cosine  of  tfie  ancle 

between  the  optical  axis  and  the  ray  from  the  observed  point.  A 

conversion  factor  was  calculated  in  terms  of  counts  read  per  inch 

grid  displacement  for  each  point.  The  best  straicht  line  fit  to 

the  resulting  conversion  factors  was  calculated  to  be  136.1  counts 

per  inch  (1633.2  counts  per  foot)  .  The  coefficient  of  detemina- 
2 

tion  (r  )  and  correlation  coefficient  (r)  each  exceeded  .9999. 
Application  of  this  conversion  constant  to  the  modified  readings 
resulted  in  solutions  within  +  .10  inch.  These  results  are  tabu¬ 
lated  in  Table  12  and  plotted  in  Figure  18.  The  mean  of  the  errors 
was  .0206  inch  and  the  standard  deviation  was  .0345  inch. 

2.4,4  Data  Acquisition 

Prior  to  the  start  of  the  test  proaram  ranae  survey  data, 
presented  in  the  Photometric  Range  section,  wore  measured  and  re¬ 
corded  . 

During  preparation  for  each  hita  rwn ,  lis  w*-r*- 

marked  on  the  anthropometric  [vjints  to  bv  t  r  f; 

were  applied  with  a  blat'k  felt,  ri.e  :iark'  r  s'r.-'*'  oc-  m  *  -  .v  ii  ;•  =  i  i  : 
iiducials  had  been  f^^und  to  e  t  f « ;o  t  ;  vv'*  ly  idrro'"  Ormr.  *  v'.' 

sub  ]^cts 


The  anthropometric  sitting  height  of  the  subject  was 
measured  while  the  subject  was  lying  on  its  side.  The  measure¬ 
ment  was  taken  from  the  lower  base  of  the  tail  to  the  level  of 
the  brow  ridge. 

After  the  subject  was  positioned  and  the  harness  preten- 
sioned,  the  lengths  of  the  body  segments  and  breadths  at  the 
shoulder,  elbow,  and  knee  fiducials  were  measured  and  recorded. 

The  sitting  height  was  again  measured  from  the  seat  pan  to  the 
brow  ridge  along  a  line  parallel  to  the  seat  back.  These  data 
along  with  subject  and  run  signature  data  were  recorded  on  a 
pretest  measurements  form.  The  data  are  defined  in  Table  13  and 
are  presented  in  Tables  14  thru  16 . 

Cinematographic  recordings  of  the  subject  were  made  on  the 
cameras  described  in  the  Photometric  Range  section.  The  data 
cameras  were  operated  at  a  nominal  speed  of  five  hundred  (500) 
frames  per  second  from  time  t=  -2,0  to  t=  +2,0  seconds.  Timing 
on  the  films  was  accomplished  by  a  pulsed  light  emitting  diode 
(LED)  driven  at  100  pulses  per  second-  Synchronization  was  accom¬ 
plished  by  a  strobe  flash  triggered  by  a  t=0  pulse  simultaneously 
recorded  on  the  electronic  data  acquisition  system. 

2.4.5  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing, 
digitizing,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
(TTY)  with  paper  tape  punch.  Tape-to-card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  system  at  the  Aeronautical  System.s  Division's  Dicital  Computa¬ 
tion  Facility  (ASD/AD)  ir  Building  676,  Area  E,  Wr xaht-Pa tterson 
A:.  r’'.rce  F+iso,  Ohio. 


TABLE  13 

PRETEST  MEASUREMENTS 


Data  Item  Definition 

1  Test  Run  NuiT±)er- 

2  Date  of  Test  Run, 

3  Subject  Identification . 

4  Weight  of  Subject  (lbs) . 

5  Sitting  Height  ( cm)  measured  from  seat  pan  surface 

to  brow  ridge,  parallel  with  seat  back  plane. 

6  Distance  (cm)  in  x-z  plane  between  tip  of  snout  and 

center  of  head  accelerometer  pack  mounting 
screw. 

7  Distance  (cm)  in  x-z  plane  between  center  of  head 

accelerometer  pack  mounting  screw  and  jaw  hinge 
point. 

8  Distance  (cm)  in  x-z  plane  between  jaw  hinge  point 

and  shoulder  point. 

9  Distance  (cm)  between  the  shoulder  point  and  the 

hip  point. 

10  Distance  (cm)  between  the  shoulder  point  and  elbow 

point . 

11  Distance  (cm)  between  hip  point  and  knee  point. 

12,  13  Anthropometric  sitting  height  (12  cm;  13  in). 

Measured  from  lower  base  of  tail  to  brow  ridge 
while  subject  lying  on  side. 

14  Breadth  (cm)  across  shoulder  points. 

15  Breadth  (cm)  across  elbow  points , 

16  Breadth  (cm)  across  knees. 


TABLE  1  6  A. 


ipc  : 

•RETEST  .MEASURE, 

MENTS  LI 

m  SUBJECTS  MIL 

HARDNESS  , 

,  TECE 

Tata  : 

•  ^  .^rr. 

1 

103 

104 

105 

106 

1GB 

109 

- 

730503 

^80  503 

730503 

3  0  5  0  3 

•7  30  5  04 

^3050 

3 

E  6  3 

F‘’3 

F76 

F86 

F66 

F64 

4 

50.0 

5  1.0 

51  .  5 

47.25 

r:  *'  c 

so  .  5 

5 

66  -  4 

70.5 

68.:’ 

6  6.6 

6  9.9 

6  6.6 

6 

3 . 9 

^  .  4 

7  .  3 

7  .  9 

"  .  7 

10.2 

9  .  7 

11.1 

10.9 

3  .3 

10 . 7 

9  .  T’ 

3 

16.5 

14  .  1 

^4.8 

1^.2 

13.4 

15.2 

9 

39  .  1 

40.0 

40.0 

37  .  9 

39.4 

29.0 

ir 

22  .  4 

23.2 

24.1 

1  “}  1 

20,6 

23.0 

11 

27.9 

26 . 9 

26  .  3 

22.0 

21 , 5 

25.6 

11 

71.1 

6  7.3 

68 . 6 

64  .3 

67.  3 

'0.5 

13 

28 . 0 

26.75 

25.5 

26  .  5 

27  .  7 

14 

22 . 4 

20 . 2 

19 . 2 

21 . 4 

22  .  1 

13 

22.9 

2  3.1 

28  .  0 

26.1 

27  .  2 

29 . 0 

16 

20.5 

9 . 0 

21 , 3 

25  .  7 

26  .  1 

15  .  1 

TABLE  16B 

:?C  PRETEST  MEASUREMENTS  CABA\TR  SUBJECTS  MIL  HARNESS,  TECELERATCH 


1 

110 

111 

113 

114 

115 

116 

2 

780504 

780504 

790505 

'90505 

7  8  0  5  0  5 

'30505 

3 

F8: 

F34 

F80 

F72 

F'  0 

F'4 

4 

45.75 

53.5 

51.25 

48 . 0 

46.0 

5  6.0 

S 

64 . 0 

,  j  .  U' 

67.0 

'•'1.3 

6  '  .  4 

'0.5 

6 

9.0 

3  .  0 

3  .  _ 

6  .  5 

9  .  0 

3  .9 

3  . 

10  ,  1 

^  .  S 

7  ,  5 

3  .  5 

9  .  4 

3 

■■  1  t 

14  .  • 

‘  .  . 

1C  .  0 

17  .  3 

9 

38 . 9 

4  3.: 

.  7  .  ? 

43.0 

•9.5 

4  2.1 

10 

21.6 

22  .  ' 

2  0.0 

23.0 

23.3 

2  3.0 

11 

24.0 

26.5 

20.6 

23  .  2 

2  6.0 

''1  ■: 

12 

64.8 

67  .  3 

6  3.5 

70.5 

69.8 

69.2 

13 

75.5 

26 . 5 

25,0 

2  7  .  '  5 

27.5 

: '  .  2  5 

14 

21.0 

19.  3 

20.6 

.1.3 

21.^ 

21.3 

15 

24.6 

30.3 

32  .  7 

24.2 

'  ~ 

1  6 

19.5 

23.3 

14.0 

19.3 

:  ~ .  2 

2 . 4 . 5 . 1  Editing 

The  seat  side  view  camera  film  was  viewed  on 
a  light  table  and  the  frames  and  0.01  second  timing  pulses  were 
counted  throughout  the  event.  The  frame  exposure  rate  (frames 
per  second)  was  scanned  for  consistency  and  the  average  frame  rate 
was  calculated.  During  the  test  program  the  film  speed  ranged 
between  485  and  515  frames  per  second.  During  each  test  run  the 
film  speed  was  constant  +1  frame  per  second,  during  the  200  milli¬ 
seconds  following  initiation . 

2. 4. 5.2  Digitizing 

The  film  was  mounted  on  the  PVR  and  was  trans¬ 
ported  forward  in  the  cine  mode  to  frame  zero,  the  first  frame  in 
which  the  strobe  flash  was  observed.  The  scales  on  the  PVR  were 
translated  and  rotated  until  the  coordinates  of  the  seat  forward 
and  aft  fiducials  were  read  to  be  within  +20  counts  of  (-150, 
-1370)  and  (-1310,  -1300)  respectively.  The  projected  image 
coordinates  were  then  digitized  in  the  following  sequence. 

1.  Seat  forward  fiducial 

2.  Seat  aft  fiducial 

3 .  Hip  fiducial 

4 .  Knee  fiducial 

5.  Shoulder  fiducial 

6.  Elbow  fiducial 

7.  Head  accelerometer  pack 

8.  Tip  of  snout 

The  digital  values  of  these  coordinates,  pro¬ 
ceeded  by  the  frame  number ^  were  punched  into  paper  tape  in  the 
format  (15,  8F7.0/I5,  8F7.0) .  Each  of  the  8F7.0  fields  contained 
four  pairs  of  coordinates. 

After  the  coordinates  projected  from  frame  zero 
were  digitized,  the  coordinates  from  each  succeeding  frame  were 
digitized  in  the  same  sequence  until  the  frame  in  which  either  of 
the  head  point  images  was  obscured  by  the  arm  image. 
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2 . 4 . 5 . 3 


Electronic  Data  Processing 


This  portion  of  the  process  required  three 
procedures ,  data  preparation,  computation ,  and  plotting . 

Data  Preparation:  During  the  data  preparatioii 
procedure,  the  rile  recorded  on  punched  paper  tape  was  communi¬ 
cated  to  the  computer  at  ASD/AD  from  a  TTY  via  voice  quai i ty 
liiies.  The  file  was  then  edited  to  correct  format  and/cr  charac¬ 
ter  errors.  Program  CHIFPD  was  then  attached  to  modify  the 
readings  to  compensate  foi  distortion.  CHIFPD  (Appendix  D)  cal¬ 
culated  the  resultant  distance  from  the  origin  of  each  pair  of 
PCS  coordinates  read  in  by 


The  angle  (y)  between  the  ray  from  the  point 
and  the  optical  axis  was  then  calculated  by 

r 

=  K 

where  K  was  inpur  as  138.7  counts/degree . 

The  modified  abscissa  (x  )  was  determined  by 

c 

X 

X  -  -  , 

C  COSY 


and  the  modified  ordinate  {y  ,)  was  calculated  by 


COSY 


The  output  was  batched  to  a  printer  and  a 
card  punch  for  creation  of  the  permanent  file.  Concurrently,  the 
identification,  control,  and  conversion  constant  cards  required 
by  program  HIFPD  were  punched  for  merger  with  the  card  file. 
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The  identification  card  contained  . Iphanumeric 
information  in  card  columns  (cc)  1  through  80  which  was  printed 
on  output  tables  as  table  identification.  The  form  used  was  IPC 
TEST  - ,  IMPULSE  ACCELERATOR  (DECELERATOR) . 

The  control  card  contained  the  test  number  and 
program  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  under  "Description  of  Program  HIFPD 
Input  Data  and  Parameter  Codes . " 

The  conversion  constant  card  contained  the 
film  speed  (frames  per  second)  and  conversion  constants  to  be 
applied  to  the  second,  third  and  fourth  pairs  of  coordinates  on 
the  first  line  read  from  each  frame,  and  the  first  through  fourth 
pairs  of  coordinates  on  the  second  line  read  from  each  frame. 

The  format  for  this  card  was  (8F10.0). 

Upon  receipt  of  the  card  file  of  modified  PCS 
coordinate  readings,  it  was  merged  with  the  previously  punched 
ID,  control  and  constant  cards,  and  the  computer  control  cards 
for  submission,  to  ASD/AD  for  computation.  The  composition  of  a 
typical  computer  runs  deck  is  illustrated  in  Figure  14. 

Computation :  Film  frame  coordinate  positions 

of  the  tracked  points  were  converted  to  two-dimensional  seat  co¬ 
ordinate  time  histories  by  program  HIFPD. 

The  PCS  coordinate  readings  of  the  two  reference 
fiducials  from  the  first  film  frame  are  used  as  the  basis  for  the 
location  of  optical  axis  relative  to  the  reference  points  and  for 
the  angular  relationship  between  the  axes  of  the  PSC  and  the  SCS . 
Readings  of  these  points  from  each  subsequent  film  frame  trans¬ 
lated  and  rotated  the  PCS  coordinate  system  to  coincide  with  the 
orientation  of  the  first  frame.  This  was  done  to  minimize  errors 
due  to  vibration  of  the  camera  during  the  test  event  and  to  com¬ 
pensate  for  frame  to  frame  variations  caused  by  the  rotating  prism. 
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The  displacement  from  the  optical  axis  of  the 
second  reference  point  was  calculated  by  dividing  the  PCS  coordi¬ 
nates  by  the  conversion  constant  contained  in  columns  11  through 
20  in  the  conversion  constant  card.  In  turn  the  displacement  from 
the  optical  axis  of  each  of  the  tracked  points  was  calculated  by 
dividing  its  PCS  coordinates  by  its  conversion  constant.  The 
values  of  x  and  z  displacements  from  the  optical  axis  of  each 
point  were  then  subtracted  from  the  x  and  z  coordinates  of  the 
reference  point  yielding  x  and  z  coordinates  of  each  point  relative 
to  the  reference  point.  Thus  the  origin  of  the  calculated  coordi¬ 
nate  system  had  been  translated  to  the  location  of  the  aft  seat 
reference  fiducial. 

From  the  time  histories  of  seat  coordinate 
positions,  HIFPD  computed  total  velocity  and  acceleration  time 
histories  of  each  point,  fitting  a  moving  quadratic  arc  to  eleven 
points  during  each  differentiation,  and  the  angular  velocity  and 
acceleration  time  histories  of  the  head  accelerometer  about  the 
snout,  and  of  the  shoulder  about  the  hip  point,  again  fitting  a 
moving  quadratic  arc  to  eleven  points  during  each  differentiation. 

The  resulting  time  histories  were  printed  in 
tables  and  written  on  magnetic  tape  for  plotting. 

Plotting;  After  examination  of  the  tabulated 
results  of  the  computation  revealed  no  apparent  gross  errors,  a 
plot  request  was  submitted  to  ASD/AD.  The  data  written  on  the 
magnetic  tape  by  HIFPD  were  read  and  plotted  offline  on  the  CAL- 
COMP  Plotter. 

2.4.6  Results  and  Accuracy 

The  results  of  this  effort  were  presented  in  tabular  and 
graphic  forms. 

In  the  data  report  deficiencies  in  the  derivations  of 
velocity  and  acceleration  time  histories  were  cited.  These 
deficiencies  and  a  brief  description  of  the  analyses  upon  which 
they  were  based  were  presented  in  Paragraph  2.3.6. 
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The  accuracy  of  the  digitizing  was  indicated  by  the 
standard  deviation  about  the  mean  for  the  solution  of  the  rear 
seat  reference  point  with  respect  to  the  forward  reference  point. 
The  standard  deviations  were: 


Run 

x-Axis 

(feet) 

z-Axis 

(feet) 

1444 

.0035 

.0002 

1447 

.0035 

.0002 

1450 

.0017 

.0001 

1451 

.0108 

.0005 

1453 

.0021 

.0001 

1456 

.0036 

.0002 

1462 

.0027 

.0001 

1466 

.0019 

.0001 

105 

.0036 

.0002 

109 

.0053 

,0002 

111 

.0046 

.0002 

115 

.0030 

.0001 

The  effect  of  smoothing  the  displacement  solutions  of  the 
tracked  points  are  indicated  in  Table  17,  which  presents  the  stan¬ 
dard  deviations  of  the  difference  between  unsmoothed  and  smoothed 
components  of  the  displacements  taken  from  a  representative  sample 
of  the  tests . 

2.5  UPPER  TORSO  RETRACTION 

The  survivability  of  emergency  escape  from  aircraft  has 
historically  been  a  primary  concern  of  the  United  States  Air  Force. 
Over  the  years ,  as  aircraft  performance  has  been  improved ,  the 
risk  of  injury,  either  fatal  or  disabling,  has  tended  to  increase. 
Research  efforts  leading  to  the  development  of  devices  and  systems 
to  provide  improved  injury  protection  and  reduction  of  risk,  and 
evaluation  of  the  products  of  these  efforts,  have  continuously  been 
conducted  and/or  sponsored  by  the  Air  Force. 
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TABLE  17A 


STANDARD  DEVIATION  OF  DIFFERENCE  BEWEEN  JNSMOOTliED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  THREE  POINT  RESTRAINT,  LIVE  SUBJECTS 


TEST  1444  TEST  1447 


x-axis 


Hip 

.0032 

Knee 

.0025 

Shoulder 

.0037 

Elbow 

.0031 

Head  Point  1 

.0135 

Head  Point  2 

.0081 

z-axis 

x-axis 

z-axis 

.0017 

.0063 

.0049 

.0032 

.0085 

.0061 

.0031 

.0137 

.0129 

.0099 

.0072 

.0112 

.00S6 

.0110 

.0075 

.0064 

.0132 

.0166 

TABLE  17B 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  THREE  POINT  RESTRAINT,  CADAVER  SUBJECTS 


TEST 

1450 

TEST 

1451 

x-axis 

z-axis 

x-axis 

z-axis 

Hip 

.0018 

.0017 

.0105 

.0041 

Knee 

.0033 

.0028 

.0104 

.0069 

Shoulder 

,0095 

.0096 

.0169 

.0103 

Elbow 

.0083 

.0042 

.0147 

.0112 

Head  Point  1 

.0092 

.0101 

.0223 

,0109 

Head  Point  2 

.0163 

.0107 

.0252 

.0137 

TABLE  17C 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  MILITARY  RESTRAINT,  LIVE  SUBJECTS 


TEST 

x-axis 

1453 

z-axis 

TEST 

x-axis 

1456 

z-axis 

Hip 

.0023 

.0024 

.0031 

.0034 

Knee 

.0056 

.0050 

.0038 

.0039 

Shoulder 

-0140 

.0049 

.0104 

.0052 

Elbow 

.0100 

.0052 

.0034 

.0033 

Head  Point  1 

.0083 

.0062 

.0101 

.0089 

Head  Point  2 

.0139 

.0081 

.0153 

.0195 

TABLE  17D 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
IN  FEET  MILITARY  RESTRAINT,  CADAVER  SUBJECTS 


TEST 

x-axis 

1462 

z-axis 

TEST 

x-axis 

1466 

z-axis 

Hip 

.0027 

.0021 

,0029 

.0028 

Knee 

.0034 

.0022 

.0032 

.0040 

Shoulder 

.0063 

.0026 

.0153 

.0084 

Elbow 

.0039 

.0033 

.0067 

.0069 

Head  Point  1 

.0081 

.0032 

.0099 

.0066 

Head  Point  2 


0078 


.0024 


.0093 


.0048 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 

DATA  IN  FEET 
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In  an  ejection  environment,  emphasis  must  be  placed  on 
the  method  of  positioning  and  restraining  the  torso,  head,  and 
extremities  of  the  crewman  in  his  seat.  Ideally  the  crewman 
would  be  restrained  in  such  a  manner  that  during  an  ejection  event, 
he  would  demonstrate  no  motion  relative  to  the  seat.  A  crewman, 
however,  also  requires  freedom  of  movement  to  perform  his  tasks. 

The  obvious  solution  was  the  development  of  a  restraint  system 
which  would  provide  the  required  freedom  of  movement  but  which  in 
an  emergency  situation  would  rapidly  retract  the  crewman  into 
position  and  restrain  him  with  force  sufficient  to  protect  him 
from  responding  adversely  to  the  acceleration  of  the  seat  and  the 
force  of  windblast. 

The  work  described  herein  was  accomplished  to  demonstrate 
a  photo  analysis  method  proposed  for  use  to  describe  the  response 
motion  of  body  segments  of  human  subjects  exposed  to  the  upper 
torso  retraction  environment-  Laboratory  simulations  wero  con¬ 
ducted  by  the  Biomechanical  Protection  Branch  of  the  AF  Aero¬ 
space  Medical  Research  Laboratory  (AMRL/BBP)  during  the  period 
January  -  May  1978.  The  tests  were  conducted  on  the  Body  Position¬ 
ing  Restraint  Device  (BPRD)  located  in  Building  824,  Wright- 
Patterson  Air  Force  Base,  Ohio. 

2.5.1  Requirements 

Primary  objectives  of  the  photometric  effort  were: 

(1)  To  describe  position-time  histories  of  anthropometric 
points  defining  the  body  segments  relative  to  the 
test  device  seat,  and  to  derive  velocity  and  accelera¬ 
tion  time  histories  of  these  points. 

(2)  To  derive  time  histories  of  angular  velocity  and 
angular  acceleration  of  the  head  about  its  y  axis. 

(3)  To  derive  time  histories  of  angular  velocity  and 
angular  acceleration  of  the  helmet  about  its  y  axis. 
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(4)  To  describe  the  position-time  history  of  the  retrac¬ 
tion  piston  and  to  derive  time  histories  of  its 
velocity  and  acceleration. 

Secondary  objectives  of  this  effort  were: 

(1)  To  record  motion  of  the  shoulder  harness  relative 
to  the  subject's  sternum  for  the  purpose  of  assess¬ 
ing  slippage  of  the  harness  relative  to  the  chest 
and  shoulders . 

(2)  To  record  the  test  event  from  a  number  of  viewpoints 
sufficient  to  demonstrate  restraint  system  and  sub¬ 
ject  performance. 

The  body  segment  motions  specified  for  description  were 
the  upper  arm,  the  upper  leg,  the  torso  and  the  head.  The  points 
selected  to  define  these  segments  were : 

upper  arm:  The  lateral-most  projection  of  the  acromion 
process  of  the  scapula  and  the  lateral  most 
point  on  the  lateral  humeral  condyle. 

upper  leg:  The  lateral-most  point  on  the  greater  femoral 
trochanter  and  the  lateral  most  point  on  the 
lateral  femoral  condyle . 

torso  :  The  lateral- most  point  on  the  greater  femoral 
trochanter  and  the  spinous  process  of  the 
seventh  cervical  vertebra  (C-7) ,  which  overlies 
the  first  thoracic  vertebra  (T-1)  when  the  head 
is  erect. 

head  :  The  point  located  on  the  sagittal  plane  of  the 

nose  at  the  level  of  the  pupils  (which  is  the 
rhinion) . 

It  was  the  concensus  that  in  addition  to  the  above,  the 
lower  leg  and  lower  arm  should  also  be  defined  although  definition 
of  these  segments  was  not  a  current  requirement.  The  former  was 
defined  by  the  lateral  projection  of  the  lateral  malleolus  of  the 
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tibula,  and  the  latter  was  defined  by  the  1  a tora  1-rrjos t  point  on  the 
lateral  humeral  condyle  and  the  sty  lion. 

Selection  of  all  the  above  points  was  influenced  by  two 
pri:-  iry  concerns: 

(1)  The  requirement  that  the  points  could  repeatedly  be 
located . 

(2)  The  requirement  that  the  points,  or  fixtures  iden¬ 
tifying  the  points,  be  observable  throughout  the 
test  event. 

All  of  the  points  d.escribed  above  are  widely  accepted  as 
recoininended  points  for  defininc  body  segments  with  the  exception 
of  the  points  on  the  head.  The  points  ■  n  the  head  were  selected 
because  the  helmet,  together  with  the  cupped  chin  strap,  left  only 
the  forward  facial  area  exposes: .  The  points  the  nose  were 
considered  to  be  the  only  practical  points  on  the  head  which  would 
satisfy  the  above  requirements. 

2.5.2  Photometric  Ran<^e 

The  photometric  range  as  illustrated  in  Figure  19,  was  a 
three  dimensional,  perpendicular  coordinate  system,  the  origin  of 
which  was  at  the  intercept  of  the  seatback  plane,  the  seatpan 
plane,  and  the  plane  of  symmetry  of  the  seat.  z  axis  was 

positive  upward  along  the  centerline  of  the  seatback,  the  x  axis 
was  positive  forward  along  the  line  normal  tc  the  seatback  plane, 
and  y  was  positive  to  the  right  of  the  seat. 

Reference  fiducials  were  affixed  to  the  se.' t  structure, 
ten  on  the  RH  side  panel  and  nine  on  forward  facing  surfaces. 

Three  additional  fiducia's  i20,  21,  22)  were  applied  to  the  cut- 
board  surface  of  the  Rll  side  of  the  test  facility  frame  structure 
forward  of  the  seat.  The  points  are  identified  in  Ficure  1'^  and 
their  coordinate  positions  are  presented  in  Table  iH. 


TABLE  18 


BPRD  REFERENCE  FIDUCIAL  COORDINATES 


•HI 

x( inches) 

y (inches) 

z ( inches) 

1 

-2.05 

10.5 

34.57 

2 

-2.05 

10.5 

28.5 

3 

-2.05 

10,5 

10.55 

4 

-2.05 

10.5 

4.57 

5 

4.88 

10.5 

1.1 

6 

10.75 

10.5 

.43 

7 

15.87 

10.5 

-  .25 

8 

4.41 

10.5 

-  .83 

9 

10.35 

10.5 

-  1.26 

10 

15.55 

10.5 

-  1.69 

11 

0.0 

7.68 

40.28 

12 

0.0 

0.0 

40.30 

13 

0.0 

-  7.33 

40.31 

14 

0.0 

9.83 

22.64 

15 

0.0 

9.83 

22.64 

16 

0.0 

-  9.83 

12.6 

17 

0.0 

-  9.83 

12.6 

18 

22.89 

9.83 

-  3.16 

19 

22.88 

-  9.83 

-  3.24 

20 

32.45 

-18.25 

5.83 

21 

38.68 

-18.25 

2.08 

22 

31.24 

-18.25 

-12.27 
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^Three  Miiliken  16mm  motion  picture  cameras  were  mounted, 
two  to  the  RH  side  of  the  test  facility  frame  and  the  third  for¬ 
ward  of  the  frame.  The  locations  of  these  cameras  are  illustrated 
in  Figure  20  and  the  coordinates  of  their  focal  points  and  camera 
body  orientations  are  listed  in  Table  19. 

2.5.3  Pho togrammetric  Calibration 

'In  the  discussion  of  the  approach  to  the  photometric  sys¬ 
tem  two  assumptions  were  made  :  that  the  focal  lengths  of  the  re¬ 
cording  and  projection  lenses  introduced  no  distortion,  and  that 
the  focal  lengths  were  precisely  stated.  The  validity  of  these 
assumptions  must  be  questioned. 

A  flat-black  board,  24  inches  x  48  inches,  containing  a 
1  inch  X  1  inch  grid  pattern  of  white  thread  was  photographed  by 
each  camera  as  follows : 


Camera  View 


Board  Location  and  Orientation 


A 

A 


B 


C 


1  Surface  in  plane,  y=0,  longer  edge  on  z  axis, 
shorter  edge  on  x  axis. 

2  Surface  in  plane,  y=  -6.97  inches,  longer 
edge  against  plane  x=0 ,  shorter  edge  in 
plane  z=0  . 

1  Surface  in  plane  y=0 ,  lower  edge  parallel 

with  deck,  3/8  inch  above  deck.  Longer  edge 
against  forward  edge  of  seat  pan. 

1  Surface  perpendicular  to  deck  1/2  inch  for¬ 
ward  of  forward  most  points  on  armrests . 

Lower  edge  on  deck. 


These  views  of  gridboard  are  on  the  film  reel  immediately  after 
the  views  of  test  run  271. 

From  these  films  a  slight  "barrel  distortion"  was  ob¬ 
served  on  all  views.  No  corrections  were  made  since  the  distor¬ 
tion  was  considered  to  be  inconsequential  in  the  area  of  the  frame 
being  evaluated. 
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TABLE  19 


BPRD  COORDINATES  OF  CAMERA  FOCAL  POINTS 
AND  CAMERA  BODY  ORIENTATIONS 


Camera 

FOCAL 

°OINT  COORDINATES 

AZIMUTH 

ELEVATION 

ROLL 

Station 

x( inches) 

y (inches) 

z{inches) 

(radians) 

(radians) 

(radians! 

A 

0.0 

66.61 

19.21 

4.712 

.006 

.002 

B 

28.0 

37.49 

-6.72 

4.712 

-.002 

.236 

C 

68.98 

0.84 

8.36 

3.142 

.299 

.001 

108 


From  the  <^'ridboard  views  recorded  on  the  camera  at  Station 
A,  readings  were  taken  from  the  PCS  2  axis  intercepts  of  five  pairs 
of  horizontal  gridlines,  the  lines  of  each  pair  being  twelve  inches 
apart.  This  same  procedure  was  applied  tc^  the  PCS  x  axis  inter^ 
cepts  of  five  pairs  of  vertical  gridlines.  An  average  of  the 
displacements  of  the  PCS  readings  was  taken  for  each  of  the  grid- 
board  locations.  The  resulting  conversion  factors  were  1377.75 
counts  per  foot  at  SCS  y=0  and  1548  counts  per  foot  at  SCS 
y==  -*6 . 9  69  inches  . 


Referring  to  Figure  4  the  following  values  were  assigned: 


r  =  r  -  =  12  inches 
o  o2 

r  =  1377.75  counts 
P 

r  «  =  1548  counts 
P2 

s  -s  «  =  6.97  inches . 
o  o2 


The  distance  from  the  axis  at  which  the  ray  from  p^  to  the  focal 
point  penetrated  the  Object  2  Plane  was  calculated  to  be: 


r 


r 


o2 


r 


r 


P2 


r 


“o2 


r 

P 


r 


P2 


r 


12  inches 


.1377.75  counts . 
1548  counts 


r  =  10.68  inches. 


The  apparent  distance  from  the  focal  point  to  the  plane  y=0  was 
calculated  to  be: 


I 

I 


s 


o 


s 

o 


-s 


o2 


r 


s 


o 


r 

o 


'o2 


*r 
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c  Q-7  inches  ^ 

“  6.97  inches  r — r— — ^ - r — 

o  1.32  inches 


=  63.36  inches . 


Calculation  of  a  I'onversion  constant,  f  ,  for  any  plane,  v=n,  was 

n 

then  accomplished  usinq: 

s 

f  =  r -  X  1  377,75  counts  per  foot 

n  s  —  y 
o 

where  y  was  either  one  half  the  measured  breadth  of  the  subject 
between  anthropometric  points  on  the  right  and  left  side  or  the 
measured  y  displacement  of  f iducials  on  the  test  facility. 

2.5.4  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing , 
digitizing,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
(TTY)  with  paper  tape  punch.  Tape  to  card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  System  at  the  Aeronautical  Systems  Division* s  L>igital  Computa¬ 
tion  Facility  (ASD/AD)  in  Building  SIC,  Area  B,  Wright-Pa tterson 
Air  Force  Base. 

2 . 5 . 4 . 1  Editing 

The  seat  side  view  camera  film  was  viewed  on  a 
light  table  and  the  frames  and  .01  second  timing  pulses  were 
counted  throughout  the  event.  The  frame  exposure  rate  (frames  per 
second)  was  scanned  for  consistency  and  the  average  frame  rate 
was  calculated .  During  the  runs  processed  the  f rame  rate  was 
500  +  i  frames  per  second  during  the  300  milliseconds  followino 
ini tia tion . 
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The  film  was  mounted  on  the  PVR  and  was  trans¬ 
ported  forward  in  the  cine  mode  until  the  operator  observed  that 
the  subject  motion  had  apparently  terminated .  The  number  of  the 
frame  was  noted  as  termination  time. 

2. 5. 4. 2  Digitizing 

Upon  completion  of  the  editing  procedure,  the 
film  was  transported  reverse  to  frame  zero,  the  first  frame  in 
which  the  strobe  flash  was  observed-  The  scales  on  the  PVR  were 
translated  and  rotated  until  the  coordinates  of  fiducials  10  and 
8  were  read  to  be  within  +20  counts  of  (2145,  -2860)  and  (640, 
-2765)  respectively.  The  projected  image  coordinates  were  then 
digitized  in  the  following  sequence. 

1 .  Arm  rest  forward  fiducial  (10) 

2.  Arm  rest  aft  fiducial  (8) 

3.  Mid  thigh  fiducial 

4 .  Knee  fiducial 

5 .  Shoulder  fiducial 

6.  Elbow  fiducial 

7.  Upper  nose  fiducial 

8 .  Lower  nose  fiducial 

9  -  Retraction  piston  fiducial 

10 .  T-1  vertebra  fiducial 

11.  Upper  helmet  fiducial 

12.  Lower  helmet  fiducial 

The  digital  values  of  these  coordinates,  pre- 
ceeded  by  the  frame  number,  were  punched  into  paper  tape  in  the 
format  (15,  8F7.0/15,  8F7-0/15,  8F7.0).  Each  of  the  8F7.0  fields 
contained  four  pairs  of  coordinates. 

After  the  coordinates  projected  from  frame 
zero  were  dini tized ,  the  coordinates  from  each  succeeding  frame 
we  re  digitized  in  the  same  sequence  until  the  fifteenth  f  rame 
following  the  frame  noted  as  termination  time.  The  last  fifteen 


frames  were  digitized  to  prevent  timewise  truncation  of  velocity 


and  acceleration  curves  due  to  smoothing  of  the  data  during  elec¬ 
tronic  data  processing. 

2 . 5 . 4 . 3  Electronic  Data  Processing 

This  portion  of  the  process  required  three  pro¬ 
cedures  ,  data  preparation,  computation,  and  plotting . 

Data  Preparation :  During  the  data  preparation 
procedure,  the  file  recorded  on  punched  paper  tape  was  communicated 
to  the  computer  at  ASD/AD  from  a  TTY  35  via  voice  quality  lines. 

The  file  was  then  edited  to  correct  format  and/or  character  errors, 
and  was  batched  to  a  card  punch  for  creation  of  the  permanent  file. 
Concurrently,  the  identification,  control,  and  conversion  constant 
cards  required  by  program  HIFPD  were  punched  for  merger  with  the 
card  file. 

The  identification  card  contained  alphanumeric 
information  in  card  columns  (cc)  1  thru  80  which  was  printed  on 
output  tables  as  table  identification.  The  form  used  was  RAPID 

RESTRAINT  TEST  _ ,  SUBJECT  _ ,  YYMMDD,  The  last  entry  is  the 

date  on  which  the  test  was  conducted  in  terms  of  year,  month,  and 
day  of  month. 

The  control  card  contained  the  test  number  and 
program  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  under  "Description  of  Program  HIFPD 
Input  Data  and  Parameter  Codes." 

The  conversion  constant  card  contained  the  film 
speed  (frames  per  second)  and  conversion  constants  to  be  applied 
to  the  second,  third,  and  fourth  pairs  of  coordinates  on  the  first 
line  read  from  each  frame,  and  the  first  thru  fourth  pairs  of 
coordinates  on  the  second  line  read  from  each  frame.  The  format 
for  this  card  was  (SFIO.O) . 
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Upon  receipt  of  the  card  file  of  PCS  coordinate 
readings,  it  was  merged  with  the  previously  punched  ID,  control, 
and  constant  cards,  and  the  computer  control  cards  for  submission 
to  ASD/AD  for  computation.  The  composition  of  a  typical  computer 
run  deck  is  illustrated  in  Figure  14. 

Computation ;  Film  frame  coordinate  positions 
of  the  tracked  points  were  converted  to  two-dimensional  seat  co¬ 
ordinate  time  histories  by  program  HIFPD,  which  is  described 
fully  in  Section  2.2.  Two  versions  of  the  program  were  filed. 

The  first  read  the  digitized  values  from  the  first  and  second 
lines  from  each  frame  and  wrote  the  appropriate  heading  and 
labels  on  tables  and  plots.  The  second  version  read  the  digi¬ 
tized  values  in  the  first  and  third  lines  from  each  frame  and 
wrote  the  appropriate  headings  and  labels  on  tables  and  plots. 

This  variation  required  two  passes  through  the  computer. 

Although  program  HIFPD  is  documented  herein  a  brief  dis¬ 
cussion  of  the  application  is  warranted. 

The  PCS  coordinate  readings  of  the  two  refer¬ 
ence  fiducials  from  the  first  film  frame  are  used  as  the  basis 
for  the  location  of  optical  axis  relative  to  the  reference  points 
and  for  the  angular  relationship  between  the  axes  of  the  PCS  and 
the  SCS.  Readings  of  these  points  from  each  subsequent  film 
frame  translated  and  rotated  the  PCS,  coordinate  system  to  coin¬ 
cide  with  the  orientation  of  the  first  frame.  This  was  done  to 
minimize  errors  due  to  vibration  of  the  camera  during  the  test 
event. 

The  displacement  from  the  optical  axis  of  the 
second  reference  point  was  calculated  by  dividing  the  PCS  coordi¬ 
nates  by  the  conversion  constant  contained  in  columns  11  thru  20 
in  the  conversion  constant  card.  In  turn  the  displacement  from 
the  optical  axis  of  each  of  the  tracked  points  was  calculated  by 
dividing  its  PCS  coordinates  by  its  conversion  constant.  The 
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values  of  x  and  z  displacements  from  the  optical  axis  of  each 
point  were  then  subtracted  from  the  x  and  z  displacements  of  the 
reference  point  yielding  x  and  z  coordinates  of  each  point  rela¬ 
tive  to  the  reference  point.  Thus  the  origin  of  the  calculated 
coordinate  system  had  been  translated  to  the  location  of  reference 
fiducial  8. 

From  the  time  histories  of  seat  coordinate  posi¬ 
tions,  HIFPD  computed  total  velcoity  and  acceleration  time  histories 
of  each  point,  fitting  a  moving  quadratic  arc  to  eleven  points 
during  each  differentiation,  and  the  angular  velocity  and  accelera¬ 
tion  time  histories  of  the  upper  nose  point  about  the  lower ,  and 
of  the  shoulder  about  the  mid  thigh  point;  again  fitting  a  moving 
quadratic  arc  to  eleven  points  during  each  differentiation. 

The  resulting  time  histories  were  printed  in 
tables  and  written  on  magnetic  tape  for  plotting. 

Plotting :  After  examination  of  the  tabular 

results  of  the  computation  revealed  no  apparent  gross  errors,  a 
plot  request  was  submitted  to  ASD/AD.  The  data  written  on  the 
magnetic  tape  by  HIFPD  were  read  and  plotted  offline  on  the  CAL- 
COMP  Plotter. 

2.5.5  Results  and  Accuracy 

The  results  of  this  effort  were  presented  in  tabular  and 
graphic  forms.  The  accuracy  with  which  these  results  represent 
the  actual  motions  of  the  observed  points  is  the  subject  of  debate. 
The  following  deficiencies  may  be  inferred  from  a  study  conducted 
by  H.  T.  Mohlman  of  the  UDRI . ^ 

(1)  Attenuation  of  peak  values  of  displacement,  velocity 
and  acceleration  is  a  function  of  frequency . 

(2)  The  eleven  point  quadratic  fit  yields  closer  corre¬ 
lation  than  either  seven,  nine,  thirteen,  or  fifteen 
point  quadratic  fits. 

iGraf,  P-A.  and  li.T.  Mohlman,  Accuracy  of  Digitized  Photometric 
Data,  AMRL-TR-79-76 ,  April,  1980,  Aerospace  Medical  Research 
Laboratory,  Wri:h t-Pa ttersen  Air  Force  Base,  Ohio. 
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(^)  The  attenuation  of  any  specific  displacement, 

city,  or  acceleration  peak  is  reasonably  predictable 
if  the  apparent  frequency  of  the  peak  is  properly 
interpreted . 

(4)  Oscillations  in  velocity  and  acceleration  curves  are 
predominantly  artifacts  induced  by  reading  errors. 

The  frequency  is  a  function  of  the  sampling  rate  and 
the  number  of  points  included  in  the  smoothing  fit. 

The  referenced  work  included  investigation  of  sampling 
theory  and  application  of  the  quadratic  fits  to  digitized  photo¬ 
metric  data  acquired  during  BPRD  tests  172  and  173. 

Frequency  response  curves  presented  in  Figure  21  were 
derived  from  fitting  eleven  points  of  sinusoidal  motion  at  fre¬ 
quencies  from  2  Hz  to  35  Hz  at  a  sampling  rate  of  500  samples/ 
second.  The  data  from  which  these  curves  were  constructed  are 
presented  in  Table  20  and  are  described  in  detail  in  the  referenced 
report . 

The  accuracy  of  the  digitizing  was  indicated  by  the 
standard  deviation  about  the  mean  for  the  solution  of  the  forward 
seat  reference  point  with  respect  to  the  rear  reference  point.  The 
standard  deviations  were: 


x-Axis 

z-Axis 

Run 

(  f  ee  t ) 

( feet) 

172 

.  0073 

,00049 

173 

.0030 

.00017 

The  effect  of  smoothing  the  displacement  solutions  ol  thv 
tracked  points  are  indicated  in  Table  21,  which  presents  the 
standard  deviations  of  difft?rence  between  unsmoothed  anc  sru.Hrlhec 
components  of  the  displacements . 
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TABLE  20 


(Hz)  * 

DISTORTION 

MULTIPLE 

f 

o 

FACTOR  (FK)  COMPUTED  FROM 
FREQUENCY  SINE  FUNCTIONS 

Distor 

ticn  Factor 

(FK) 

‘  “  f 

s 

F 

DISPL 

VEL 

ACCEL 

2 

.04 

.9974 

1.0000 

.9981 

.9963 

.08 

.9895 

1.0000 

.9925 

.9851 

6 

.12 

.9765 

.9999 

.9831 

.9667 

8 

.16 

.9584 

.9997 

.9700 

.9413 

10 

.20 

.9355 

.9993 

.9532 

.9093 

12 

.24 

.9079 

.9985 

.9327 

.8713 

14 

.28 

.8759 

.9972 

.9086 

.8278 

16 

.32 

.8399 

.9953 

.8809 

.7796 

18 

.36 

.8000 

.9926 

.8498 

.7275 

20 

.40 

-7568 

,9888 

.8154 

.6724 

22 

.44 

.7106 

.9838 

.7779 

.6151 

24 

.48 

.6618 

.9975 

.7376 

.5567 

26 

.52 

.6109 

.9695 

.6949 

.4981 

28 

.56 

.5583 

.9597 

.6500 

.4403 

30 

.60 

,5046 

.9479 

.6034 

.3841 

32 

.64 

.4500 

.9340 

.5556 

.3305 

34 

.68 

,3952 

.9177 

.5070 

.2801 

35 

.70 

.3679 

.9086 

.4826 

.2563 

*f  applies  only  to  an  11-point  fit  of  data  sampled  at  500  samples  per 
second;  use  r  to  determine  FK  for  other  fits  and/or  sample  rates. 
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TABLE  21 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND 
SMOOTHED  DISPLACEMENT  DATA  IN  FEET 


TEST 

172 

TEST 

173 

x-axis 

z-axis 

x-axis 

2-axis 

Hip 

.0028 

.0028 

.0027 

.  0030 

Knee 

.0028 

.0039 

.0034 

.0041 

Shoulder 

.0077 

.0041 

.  0080 

.  0046 

Elbow 

.0039 

.0091 

.0048 

.0039 

Head  Point  1 

.0085 

.0058 

.0090 

.  0060 

Head  Point  2 

.0121 

.0083 

.0128 

.0085 

Piston 

.0046 

.0077 

.0062 

.  0072 

T1 

.0089 

.0045 

.0093 

.  00  38 

Helmet  1 

.0090 

.0037 

.0099 

.0038 

Helmet  2 

.0082 

.0035 

.0086 

.  0038 
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SECTION  3 

ANALYSIS  OF  NONPLANAR  MOTION 

Exposure  to  impact  environments  havinq  sianificant  lateral 
components  of  acceleration  usually  result  in  three  dimensional 
responses . 

A  method  was  developed  by  the  UDRI  to  solve  for  the  instan¬ 
taneous  coordinates  of  points  relative  to  a  seat  coordinate  system 
(SCS) .  The  method,  documented  in  AMRL-TR-78-94 ,  employs  program 
POOCH  to  calculate  the  apparent  coordinates  of  the  focal  point 
of  each  camera  and  the  orientation  of  its  optical  axis  and  the 
film  frame  axes  in  the  SCS.  The  results  output  by  POOCH  are  in¬ 
put  to  program  SLED  to  calibrate  the  digitized  readings  of  observed 
points.  SLED  solves  for  the  most  likely  point  of  intercept  of  the 
rays  from  each  observed  point  to  each  focal  point  and  calculates 
the  distance  between  the  rays  at  each  solution  point . 

This  method  was  applied  to  photodata  collected  during  the 
DOT  6  Year  Old  Child  comparison  and  the  Whole  Body  Restraint- 
Lateral  study.  The  latter  also  required  the  derivation  of  velo¬ 
city  and  acceleration  time  histories  from  the  displacement-time 
data.  Program  WBRL  was  developed  to  smooth  the  component  dis¬ 
placement-time  histories  and  to  derive  smoothed  component  and 
resultant  velocity  and  acceleration  time  histories.  Program  WBR-L , 
with  explanatory  comments,  is  listed  in  Appendix  B. 

3.1  DOT  6  YEAR  OLD  CHILD  COMPARISON 

The  Department  of  Transportation ,  under  an  interagency 
agreement,  requested  a  comparative  analysis  of  the  effectiveness 
of  three  types  of  automotive  child  restraint  systems ,  and  a 
comparison  of  the  inertial  and  kinematic  responses  of  three  types 
of  surrogate  six-year-olds  while  restrained  with  each  of  the 
three  systems.  The  surrogates  were  two  manikins  of  different 
manufacture  and  nine  live  anesthetized  baboons  whose  general 
anthropometry  approximated  that  of  a  six  year  old  child. 
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The  impact  environments  were  developed  with  the  AMRL/BBP 
Horizontal  Impulse  Accelerator  Facility  at  WPAFB .  The  impact  en¬ 
vironments  simulated  were  twenty  and  thirty  miles  per  hour  head 
on  and  fifteen  and  twenty  miles  per  hour  left  lateral.  Seventy- 
five  test  runs,  including  system  performance  tests,  were  conducted 
from  22  October  1975  thru  19  December  1975. 


3.1.1  Photometric  Data  Acquisition 

The  primary  objectives  of  the  photometric  data  system  were 

to  : 

•  Develop  a  method  for  calculating  three  dimensional 
displacement  of  anthropometric  points. 

•  Collect  data  on  two  high  speed  motion  picture  cameras 
mounted  onboard  the  test  vehicle . 

•  Apply  the  developed  method  to  reduce  the  photodata  to 
time  histories  of  three-dimensional  coordinate  positions 
in  the  SCS  of  two  points  on  the  head  of  each  subject. 


The  method  developed  to  solve  the  time-SCS  position  data 
resulted  in  the  programs  POOCH  and  SLED.  These  programs  required 
application  of  fixed  reference  fiducials  and  a  survey  of  their 
coordinates  in  the  SCS.  The  camera  and  range  survey  data  from 
forward  impact  configurations  and  left  lateral  impact  configurations 
are  presented  in  Figures  22  and  23  respectively. 


Photo  recordings  were  recorded  on  two  Mil liken  DBM-4B 
cameras  fitted  with  10  mm  lenses.  The  cameras  were  operated  at 
a  nominal  rate  of  500  frames  per  second.  Timing  of  the  film  was 
provided  by  exposure  of  the  film  edges  to  light  emitting  diodes 
excited  simultaneously  by  a  central  pulse  generator  at  100  pulses 
per  second. 


Figures  24  and  25  illustrate  typical  scenes  as  observed 
by  these  cameras  prior  to  forward  and  lateral  impacts  respectively. 


3.1.2 


Data  Reduction 


Reduction  of  the  recorded  data  to  displacement-t ime 
histories  required  digitization,  in  the  projected  image  coordinattj 
system  (PCS)  of  the  coordinates  of  fixed  reference  fiducials  and 
fiducials  on  the  heads  of  the  subjects,  and  electronic  data  pro- 
cessing  of  the  digitized  data  by  POOCH  and  SLED . 

Digitizing  was  accomplished  on  a  Producers  Service  Corpora^ 
tion  model  PVR  film  analyzer  (PVR)  which  was  interfaced  to  a  tele¬ 
type  terminal  equipped  with  a  paper  tape  punch  station  (TTY) . 

The  film  was  mounted  on  the  PVR  and  was  transported  until 

the  first  time  pulse  (t=0)  was  observed.  The  film  was  transported 

in  reverse  until  the  twelfth  frame  before  the  t  pulso  to  com- 

o 

pensate  for  the  film  path  displacement  of  the  LED  from  the  exposure 
frame  in  the  gate.  The  frame  counter  was  reset  to  0000. 

The  origin  of  the  projected  image  coordinate  system  was 
located  by  numerically  bisecting  the  major  and  minor  dimensions 
of  the  projected  frame  and  resetting  the  counters  to  zero  at 
that  point.  The  PCS  coordinates  of  all  observed  reference  fiducials 
were  then  digitized  by  locating  the  cursors  over  the  center  of  each 
and  depressing  the  record  switch.  The  operator  noted  the  code 
number  of  eacn  observed  fiducial  as  it  was  digitized.  These 
values  were  later  processed  by  POOCH  to  locate  and  orient  the 
camera  for  the  data  from  this  test. 

The  operator  then  digitized  the  PCS  coordinates  of  four 
reference  fiducials,  previously  selected  as  being  observable 
throughout  the  event,  and  the  four  points  on  the  heads  of  the 
subjects.  The  resulting  tab-Ie  of  data  was  in  the  form  of  the 
following  format  throughout  the  program.  During  lateral  impacts 
only  one  subject  was  exposed.  When  films  from  these  tests  were 
digitized  the  reading  of  the  chin  fiducial  was  repeated  two 
additional  times  to  fill  the  file. 
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NOTE :  Points  tracked  on  baboons  were  the  head  accelerometer 

and  the  tip  of  the  snout. 

After  the  data  were  digitized  from  frame  zero  the  film 
was  advanced  to  frame  001  and  the  points  were  again  digitized  in 
the  same  sequence.  This  procedure  was  repeated  for  each  frame 
until  one  of  the  fiducials  on  the  head  of  one  of  the  subjects 
became  unreadable . 


The  digital  files  recorded  on  paper  tapes  were  communicated 
to  the  CDC  computer  system  at  Aeronautical  Systems  Division’s 
Digital  Computation  Facility  (ASD/AD)  from  a  TTY  via  data  modem 
and  voice  quality  lines.  The  files  were  edited  to  correct  format 
and/or  character  errors  and  were  copied  to  disk  storage  and  card 
punch.  The  card  files  were  maintained  as  backup  in  case  the  disk 
files  had  been  inadvertantly  purged. 

The  files  were  amended  by  insertion  of  camera  location  and 
orientation  data  output  by  POOCH,  and  the  addition  of  the  fixed 
reference  fiducial  SCS  coordinates,  the  film  frame-time  equivalence 
table,  and  the  interpolation  interval  and  test  run  number  as 
required  by  SLED. 

The  binary  file  of  SLED  was  attached  and  executed.  The 
output  was  copied,  in  batch  mode,  to  a  printer  and  card  punch. 

The  results  were  visually  checked  for  obvious  errors.  If 
the  solutions  evidenced  no  apparent  discontinuities  and  the  miss- 
distances  at  the  solution  points  were  less  than  0.25  inch,  the 
card  deck  containing  the  SCS  solutions  was  prepared  to  generate 
plots.  The  plots  generated  presented  y  and  z  displacements  versus 
X  displacement. 

3.2  WHOLE  BODY  RESTRAINT-LATERAL 

Description  of  relative  motion  of  anthropometric  points 
of  the  torso,  head,  and  extremities  during  laboratory  simulations 
of  impact  environments  are  essential  to  the  development  and  veri¬ 
fication  of  predictive  models.  One  method  of  describing  the  motion 
of  these  points  is  to  track  each  point  as  a  function  of  time  with 
two  or  more  motion  picture  cameras,  quantify  or  evaluate  the 
coordinates  of  their  images  as  projected,  and  from  these  prn-,octOii 
image  coordinates  calculate  the  loci  of  the  points  in  the  seat 
coordinate  system.  This  method  was  applied  during  the  \<ho\n  lu^dy 
Restraint-Lateral  (WBRL)  Impact  Study  conducteci  by  the  B i t.^mt'chu  n  i  e.j ! 
Protection  Branch  of  the  AF  Aerospace  Medical  Resrvirch  bai^<  tci- 
tory  (AMRL/BBP)  .  The  experimental  tests  were  condurted.  t  lie 
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Horizontal  Impulse  Accelerator  facility  in  Building  824  at  Wright 
Patterson  Air  Force  Base,  Ohio  between  March  and  July  1977. 

3.2.1  Seat  Coordinate  System 

The  seat  coordinate  system  (SCS)  was  a  left  handed  three- 
dimensional,  mutually  perpendicular  system  having  its  origin  at 
the  intercept  of  the  seat  centerline  and  the  line  of  intersection 
of  the  seat  pan  upper  surface  and  the  seat  back  forward  surface. 
The  positive  senses  of  the  axes  were  to  the  rear  (x  axis) ,  to  the 
left  (y  axis),  and  upward  [z  axis)  as  illustrated  in  Figure  26. 


Figure  26.  WBR-L  Seat  Coordinate  System  (SCS). 


3.2.2  Camera  Locations 

Photographic  records  of  the  responses  of  the  test  subjects 
were  acquired  by  four  Milliken  16  mm  cameras  operating  at  nominal 
exposure  rates  of  500  frames  per  second.  All  four  cameras  were 
mounted  onboard  and  were  located  and  oriented  such  that  each  of 
the  f iducials  located  on  the  nine  anthropometric  points  to  be 
tracked  were  observable  by  two  of  the  cameras  throughout  the  impact 
and  response  periods.  The  location  and  orientation  scheme  of  the 
cameras  is  illustrated  in  Figure  27,  and  the  coordinates  of  the 
focal  points  and  orientations  of  optical  axes  are  presented  in 
Table  22. 


Figure  27.  Schematic  of  Camera  Locations  and  Orientations,  WBR-L. 
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3.2.3  Data  Acquisition 

The  data  acquisition  mission  consisted  of  three  distinct 

tasks : 

1.  Documentation  of  anthropometric  measurements  of  each 
subject . 

2.  Tracking  fiducial  application,  measurement,  and  docu¬ 
mentation  . 

3.  Cine  recording  of  the  tracking  fiducials  during  the 
impact  and  response  events. 

Anthropometry  of  each  test  subject  was  measured  and  docu¬ 
mented  by  AMRL/HED. 

Tracking  fiducial  application,  measurement  and  docum.enta- 
tion  were  accomplished  prior  to  each  test  run  by  the  UDRI  repre¬ 
sentative.  Tracking  fiducials  were  located  as  follows. 

The  suprasternal  notch  was  located  by  palpation  and  marked 
with  a  nylon  tip  pen. 

The  lower  end  of  the  sternum  was  located  by  palpation  and 

marked . 

Two  arcs  of  10  cm  radius  were  struck  from  the  mark  on  the 
suprasternal  notch  to  the  right  and  left  clavicles  and  were  marked. 

One-inch-diameter  fiducials,  printed  in  alternating  black 
and  yellow  quadrants  and  having  a  one-sixteenth  inch  hole  at  the 
center,  were  placed  over  these  four  marks. 

With  the  subject's  head  erect,  a  fiducial  approximately 
three-eighths  inch  high  and  one-inch  wide  was  centered  on  the 
sagittal  plane  of  the  nose  at  the  level  of  the  pupils.  A  fiducial 
of  similar  size  was  located  at  the  level  of  the  pupils  at  each 
lateral  orbital  rim. 

Two  additional  tracking  fiducials  were  previously  mounted 
to  a  leather  appliance  which  was  strapped  to  the  subject's  pel'is. 
Initially  these  fiducials  were  placed  on  the  sub]ect  over  the 
anterior  superior  iliac  spines.  This  proved  to  be  unsatisf actory 
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because  the  fiducials  on  several  subjects  were  obscured  by  abdomiiia 
skin  folds  when  the  subject  was  seated. 

The  last  fiducial  was  intended  to  track  the  motion  of  the 
first  thoracic  vertebra  (T-1) -  With  the  subject's  head  bowed  for¬ 
ward  the  spinous  process  of  the  seventh  cervical  vertebra  (C-7)  was 
located  by  palpation  and  was  followed  as  the  subject  erected  his 
head.  The  fiducial  was  then  placed  over  this  point  which,  with 
the  head  erect,  overlayed  T-1 , 

With  the  subject  seated  in  a  mockup  of  the  test  seat  relati 
dimensions  were  read  with  an  anthropometer  and  recorded.  Dimension 
taken  were : 

R.H.  eye  fiducial  -  L.H.  eye  fiducial 
R. H .  eye  fiducial  -  Nose  fiducial 
fj.H.  eye  fiducial  -  Ncse  fiducial 

Suprasternal  notch  fiducial  -  Lower  sternum  fiducial 
Suprasternal  notch  fiducial  -  R.H.  clavicle  fiducial 

Suprasternal  notch  fiducial  -  L.H.  clavicle  fiducial 

Suprasternal  notch  fiducial  -  R.H.  pelvic  fiducial 

Suprasternal  notch  fiducial  -  L.H.  pelvic  fiducial 

Lower  sternum  fiducial  -  R.H.  clavicle  fiducial 
Lower  sternum  fiducial  -  L.H.  clavicle  fiducial 
R.H.  pelvic  fiducial  -  L.H.  pelvic  fiducial 
R.H.  clavicle  fiducial  -  L.H.  clavicle  fiducial 

After  the  subject  was  instrumented  and  seated  in  position, 
coordinates  (in  the  seat  coordinate  system)  of  the  suprasternal 
notch  fiducial,  the  R.H.  trageon,  and  the  lower,  forward,  inboard 
corner  of  the  Nine  Transducer  Accelerometer  Pack  (9TAP)  were  read 
and  recorded.  The  9TAP  was  mounted  on  the  R.H.  side  of  a  weldina 
mask  headband  which  was  secured  by  straps  under  the  chin  and  the 
base  of  the  occiput.  It  contained  three  linear  accelerometers  at 
the  origin  and  two  at  the  end  of  each  arm  aligned  with  each  of  the 
three  axes  of  the  head  and  was  designed  to  yield  time  histories 
linear  acceleration  in  three  axes  and  anaular  accelerations  about 
those  axes . 
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Prior  to  the  first  test,  fixed  reference  fiducials  were 
mounted  on  the  test  fixture.  These  fiducials  are  identified  in 
Figure  28,  and  their  coordinates  are  listed  in  Table  23. 

Cine  recording  of  the  responses  of  the  subjects  were  re¬ 
corded  from  t=-2  seconds  to  t=2  seconds.  The  four  Milliken  cameras 
were  remotely  operated  by  circuits  in  the  photo  instrumentation 
control  console  which  was  programmed  into  the  countdown  sequence. 
Timing  was  provided  by  a  pulse  generator  which  simultaneously  ex¬ 
cited  an  LED  in  each  of  the  cameras  at  the  rate  of  one  hundred 
pulses  per  second. 

Synchronization  of  time  among  the  films  was  accomplished 
by  a  strobe  flash,  observable  by  all  cameras,  initiated  at  t=0 . 

3.2.4  Data  Reduction 

The  desired  results  of  the  data  reduction  effort  were 
time  histories  of  coordinate  positions  of  the  tracked  points  and 
the  velocities  and  accelerations  derived  t.:ereform.  The  system 
used  was  a  modified  photo  theodolite  space  position  solution  system. 
The  phototheodolite  system  assumes  synchronized  exposure  of  films 
from  two  or  more  cameras.  Since  the  cameras  used  were  not  syn¬ 
chronized,  the  system  was  modified  to  synchronize  projected  film 
frame  images  by  linear  interpolation  of  projected  film  frame  co¬ 
ordinates  between  frames  at  fixed  time  intervals. 

The  overall  data  reduction  task  required  three  subtask 
areas,  film  editing,  projected  image  digitizing,  and  electronic 
data  processing. 

3. 2. 4.1  Film  Editing 

Critical  to  the  processing  of  the  photo  data  were  timing, 
legibility  of  reference  and  tracking  fiducials,  and  documentation 
of  any  anomalies  that  might  occur . 

Each  film  was  viewed  on  a  light  table  to  assure  that 
j  there  was  no  erratic  behavior  of  film  transport  during  recording. 

This  was  accomplished  by  sampling  the  film  intervals  between  .01 
second  LED  images  on  the  film.  If  no  significant  deviations  were 
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noted,  the  average  frame  rate  was  calculated.  Since  the  cameras 
employed  were  pin  registered,  and  a  loop  of  11  to  12  frames  was 
required  between  the  pulsed  LED  and  the  shutter,  absolute  timing 
was  not  possible. 

Time  zero  was ,  by  definition,  the  first  frame  in  which 
the  strobe  flash  was  observable.  Given  a  nominal  frame  rate  of 
500  fram.es  per  second  (500  fps)  the  maximum  synchronizing  error 
was  2  milliseconds  for  each  camera.  However,  given  the  shutter 
openings  of  140°  the  maximum  error  between  two  qiven  cameras  be¬ 
comes  1.22  milliseconds; 
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X  .002  sec) 


3. 2. 4. 2  Projected  Image  Digitizing 

Films  from  cameras  mounted  onboard  at  stations  11,  12, 

13,  and  14  were  digitized.  The  origin  of  the  film  frame  coordi¬ 
nate  system  was  determined  by  bisecting  the  horizontal  and  verti¬ 
cal  centerlines  of  the  projected  film  frame  images  from  ten  test 
runs .  The  readings  of  reference  f iducials  were  tabulated  and  the 
average  reading  of  each  fiducial  was  calculated.  These  were  de¬ 
fined  as  the  table  of  standard  readings  used  to  set  the  scales  for 
digitizing . 

The  film  was  mounted  on  the  Producers  Service  Corporation 
(PSC)  model  PVR  film  analyzer  and  the  scaling  system  was  rotated 
until  the  cursors  were  in  alignment  with  the  projected  film  frame 
image  at  the  frame  defined  as  t=0.  The  cursors  were  set  over  tht 
image  of  a  reference  fiducial  and  the  scales  were  set  to  zero. 

The  cursors  were  then  translated  until  the  negative  values  of  the 
standard  reading  for  that  fiducial  were  counted  and  were  again  re¬ 
set  to  zero.  The  readings  of  all  reference  fiducials  were  taken 
to  assure  that  they  were  all  within  +20  counts  (.02  inches)  of 
the  values  in  the  table  of  standard  readings. 


From  Cameras  11  and  12  the  data  points  were  digitized  tcj 
punched  paper  tape  in  the  format  (15,  3F7.0/5X,  8F7.0/5X,  8F7.0). 
The  "15’*  was  the  frame  number.  Each  of  the  "8F7.0'’  formats  was 
composed  of  four  pairs  of  "-x,  y"  values  in  the  projected  film 
frame  coordinate  system.  This  was  chosen  to  simplify  the  reading 
since  the  cameras  at  stations  11  and  12  were  rotated  onto  their 
left  sides  to  improve  the  field  of  view. 

The  PSC  model  PVR  is  constrained  to  read  to  the  ri  :h^ 
of  the  operator  and  +y  upward.  Since  the  cameras  at  stations  11 
and  12  were  rotated  to  their  left  sides,  the  operator's  view  or 
the  film  frame  was  as  illustrated  in  Figure  29.  Thus  with  the 
PVR  programmed  to  digitize  Frame  :;;:mber  and  four  pairs  e'  y, 

X  values,  the  net  result  was  the  format  presented  above. 

The  first  line  of  readinus  (15,  8F7.0)  containe-d  tho 
frame  number  and  four  "-x,  y"  film  frame  coordinates  of  fi  .eu 
reference  points.  The  first  format  ”5X,  8F7.0/"  contained  the 
repeated  frame  number  (5X)  and  four  pairs  of  film  frame  coordinates 
(-X,  y)  of  the  suprasternal  notch,  lower  sternum,  R,H,  c  la  vie  It- 
and  L.H.  clavicle  fiducials-  The  second  format  "5X,  9F7.0"  con¬ 
tained  the  repeated  frame  number  and  four  pairs  of  film  frame 
coordinates  (-x,  y)  of  the  R.H.  pelvis,  L.H.  pelvis,  R.H.  eye, 
and  nose  fiducials . 

For  camera  stations  13  and  14  the  data  points  were  digi¬ 
tized  to  punched  paper  tape  in  the  format  (15,  8F7.0/5X,  SF'^.O). 

For  these  views  the  PSC  PVR  was  programmed  to  punch  the  coordinate 
pairs  in  ”x,  y"  format  since  camera  13  was  mounted  upright  and 
camera  14  was  inverted . 

The  first  line  of  readings  (15,  8F7.0)  again  contained 
the  film  frame  number  and  pairs  of  x,  y  readings  of  four  fixed 
reference  points.  The  second  line  (5X,  8F7.0)  contained  the  re¬ 
peated  frame  number  and  the  reading  of  the  coordinates  of  the  T1 
fiducial  read  four  times.  This  was  done  to  satisfy  the  require¬ 
ments  of  the  preprogramming  of  the  FVR  and  input  rormat  to 
Program  SLED . 


The  operator’s  view  of  the  projected  images  of  films 
from  cameras  13  and  14  is  illustrated  in  Figure  30. 

3 . 2 . 4 . 3  Electronic  Data  Processing 

Electronic  data  processing  required  a  sequence  of  related 
operations  which  could  be  broadly  broken  down  into  the  areas  of 
data  preparation,  computation  and  plotting,  and  review  of  results. 

Three  computer  programs  were  required  to  achieve  the  re¬ 
sults.  Program  POOCH  was  used  to  determine  the  apparent  location 
and  orientation  of  each  of  the  four  cameras.  Program  SLED  was 
employed  to  solve  for  the  most  likely  point  of  the  intercept  in 
the  three-dimensional  SCS  of  rays  from  each  pair  of  cameras  to 
each  tracked  point.  Program  WBRL  was  employed  to  calculate  time 
histories  of  smoothed  coordinate  positions  of  each  of  the  tracked 
points,  smoothed  component  and  resultant  accelerations  of  each 
of  the  tracked  points,  and  orthogonal  projections  of  the  relative 
positions  of  the  right  lateral  orbital  rim  fiducial  and  the  nose 
fiducial . 

The  results  of  these  calculations  were  printed  on  hard 
copy  and  written  on  magnetic  tape  for  offline  plotting . 

Programs  POOCH  and  SLED  are  described  in  detail  in  AMRL- 
TR-78-94  "Photometric  Methods  for  the  Analysis  of  Human  Kinematic 
Responses  to  Impact  Environments . " 

Data  Preparation;  Preparation  of  data  for  input  to  pro¬ 
gram  POOCH  required  digitization  of  projected  image  coordinates 
of  each  of  the  fixed  reference  points  and  transcribing  these  values 
together  with  the  measured  coordinates  in  the  SCS  of  the  points 
into  tabulating  cards .  The  approxima te  measured  coordinates  in 
the  SCS  of  the  focal  point  of  the  camera  and  the  nominal  focal 
length  of  the  lens  were  also  transcribed  to  accounting  cards . 

These  cards  were  then  merged  with  system  control  cards  and  the 
binary  program  cards  and  transmitted  to  ASD/AD,  Bldg.  676,  WPAFB 
for  process j  ng. 


Processing  of  projected  ima-je  coordinates  to 
dimensional  positions  in  the  SCS  required,  in  addition  to  the  d. 
tized  readings,  location  and  orientation  data  for  each  of  the 
cameras,  reference  fiducial  table  as  seen  by  each  camera,  and  a 
film  frame-time  equivalence  table.  Cards  containing  these  cata 
were  punched  and  merged  with  the  required  system  control  cards 
and  were  submitted  to  ASD/AD  for  processing  with  program  SLED. 

The  tables  and  plots  output  by  program  SLED  were  revn^wc  i 
for  apparent  gross  errors.  When  none  were  observed,  the  card  r :  1 
punched  by  program  SLED  were  merged  with  system  control  cards  an: 
submitted  to  ASD/AD  for  processing  to  smoothed  time-SCS  coordinar* 
velocities  and  accelerations  by  program  WBRL  which  is  presented 
in  Appendix  A.  Tables  and  plots  generated  by  program  WBRL  are 
presented  in  Appendices  B  through  N. 

Computation  and  Plotting:  These  functions  were  accom¬ 
plished  on  the  CDC  systems  at  ASD/AD.  The  programs  used  have  Let:, 
previously  referenced,  however  it  is  well  to  note  that  the  piocici;’ 
WBRL  calls  subroutines  from  the  system  library  to  prepare  and  wm  ^ 
the  tapes  used  for  offline  plotting. 

Review  of  Results :  The  coordinate  solutions  calculated 
by  program  SLED  from  the  projected  images  of  films  from  cameras 
11  and  12  resulted  in  smooth  time-displacement  curves  for  the  y 
and  z  components  but  were  very  erratic  for  the  x  component.  Dut.' 
to  the  shallow  angle  between  the  optical  axes  of  these  car:\e^ras 
(approximately  19.8  degrees)  even  slight  reading  error  resulted 
in  large  fore  and  aft  errors  (x  coordinates).  These  errors  beoamt 
even  more  magnified  in  the  differentiation  to  x  com[)onents  cf 
velocity  and  acceleration . 

A  statistical  analysis  of  the  miss  distances  between  the 
rays  constructed  from  both  cameras  at  the  solution  points  was 
accomplished  by  program  SLED.  The  values  of  mean  error  and  stan¬ 
dard  deviation  from  the  mean  calculated  for  each  of  the  tr'ic)<ed 
points  for  each  test  is  tabulated  at  the  start  of  each  of  the 
data  results  appendices.  The  mean  error  and  standar  :  ad^viation 
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from  the  mean  for  the  tracked  points  for  all  tests  considered 
are  presented  in  Tables  24  and  25. 

The  above  data  indicated  that  the  SCS  solutions  for  the 
T-1  fiducial  were  relatively  poor.  The  high  standard  deviations 
for  this  point  may  be  due  to: 

1.  Refraction  of  rays  passing  through  the  seat  back 
window . 

2.  Glare  from  both  window  and  fiducial  as  the  seat 
traveled  past  individual  lamps . 

3 .  Angle  between  the  surface  of  the  fiducial  and  the 
ray  to  camera  14  was  very  small , 

In  general  the  fiducial  surfaces  were  very  reflective  and  diffi¬ 
culty  was  experienced  with  recognizing  the  centers  of  all  at 
various  times  throughout  the  tests . 

Calculated  values  of  velocity  and  acceleration  were 

probably  degraded  as  a  function  of  frequency.  A  study  by  Mr. 

Mohlman  of  error  induced  by  smoothing  displacement,  velocity,  and 

acceleration  data  with  a  moving  quadratic  arc  fit  to  eleven  points 

2 

will  soon  be  published.  The  study  was  based  in  part  on  the 
analysis  of  sinusoidal  displacement  data  sampled  at  2  millisecond 
intervals .  The  sinusoida 1  frequencies  analyzed  were  varied  from 
2  Hz  to  35  Hz.  The  results  of  this  portion  of  Mr .  Mohlman ' s 
study  were  presented  in  Figure  2 1  and  Table  20 , 
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SECTION  4 

PICTOGRAPHIC  PRESENTATION 


A  need  was  seen  to  exist  for  a  metiiod  of  presenting,  in 
a  compi  e'.vinsive  manner,  the  sequential  relative?  displacements  of 
body  s-'  j  u.M.t-.  thL:-y  respond  to  impact  .  Program  RSD  was 

devei-^ped  fo  orocess  data,  digitized  from:  selected  frames  of  motion 
pict  .  .  recor  ,ings  of  laboratory  s imi;i:.u,  .  ons  of  -G^  impacts,  to  a 
ser; oi  .■;in  t  ime- incremen  ted  y;ictograms  of  body  segment  positions 
ana  rest-ttiint  names  s  strap  di  splacements  relative  to  the  seat, 

rO.Ls  process  was  developed  f-.r  the  Biomechanical  Protec¬ 
tion  n  of  the  AF  Aerospace  I’^.-dicc;  i,  Research  Laboratory^ 

(AKRL/PBP)  located  at  Wright-Pat terson  Air  Force  Base  (WPAFB) , 

Ohio  • 

It  was  developed  to  minimize  the  manual  effort  required 
to  cc^’Tvert  digitized  data  to  plotted  pictograms.  The  processing 
program  is  written  in  FORTRAN  langu  I'je  and  utilizes  library  rou¬ 
tines  av  .  l  iable  on  the  CDC  com.puter  systems  at  Aeronautical  Systems 
DXV.ISX  jT."  3  Digital  Computation  Facility  (ASD/AD)  at  WPAFB. 

4.1  PROGRAM  RSD  INPUT  REQUIREMENTS 

This  section  describes  the  content  and  format  of  the  data 
required  to  execute  the  program  RSD.  This  program  draws  six  graphs 
on  the  CALCOMP  plotter  which  show  the  position  of  the  head,  shoulder, 
elbow,  wrist,  hip,  knee  and  ankle  at  six  time  points  during  the 
test.  The  six  graphs  are  plotted  on  a  report  size  page  (6-1/2  by 
9  inches. 

Execution  of  the  program  RSD  requires  the  CCAU  and 
CCPLOT1036  CALCOMP  plot  libraries.  The  CALCOMP  plot  output  file 
is  written  on  file  TAPE?. 
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The  first  eight  cards  described  below  define  the  test 
parameters  and  the  remaining  six  sets  of  six  cards  each  defi:':e 
the  input  data  at  the  six  time  points.  The  variable  names  used 
in  the  program  are  included  with  the  data  description.  All  re¬ 
ferences  to  the  y  axis  in  this  text  and  in  the  program  source 
listing  (Appendix  C )  should  be  interpreted  as  the  chair  z  axis. 


Card  Number  1  --  Title  Card 

Columns  Format  Variable  Name  Description 

1-60  6A10  TITLE  Title  or  caption  printed  below  the 

set  of  six  graphs.  This  title 
should  be  centered  in  the  60  column 
field. 


Card  Number  2  --  MISc.  data  in  inches 


1-  5  Card  ID,  —  not  read  by  the  program 


6-12 

F7.0 

DPS 

Distance  between  Lexan  panel  and 
seat  side  planes 

13-19 

F7.0 

DSC 

Distance  from  seat  side  fiducial 
plane  to  seat  center  line 

20-26 

F7.0 

DPF 

Distance  between  f iducials  on 

Lexan  panel 

27-33 

F7.0 

DSF 

Distance  between  seat 

side  fiducials 

34-40 

F7.0 

XSB 

X  shoulder  belt 
attachment  point 

41-47 

F7.0 

YSB 

y  shoulder  belt 
attachment  point 

48-54 

F7 . 0 

XLB 

X  lap  belt  attach¬ 
ment  point 

relative  to 
seat  origin 

5  5-61 

F7.0 

YLB 

y  lap  belt  attach¬ 
ment  point 

62-68 

F7 .0 

XASSF 

X  aft  seat  side 
fiducial 

69-75 

F7 . 0 

YASSF 

y  aft  seat  side 
fiducial  _ 
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!ard  Xurnber  3 


Breadths  across  f ic;ac i.. is 
data  are  in  counts . 


Co  i  urn 

ns  Format 

Variable  Name 

Description 

5 

0-12 

F7,0 

BAF  ( 1 ) 

Card  ID 

flip 

ii-19 

F7  •  0 

BAF (2) 

Knee 

20-ib 

F7 . 0 

BAF (3) 

Ankle 

* 

27-33 

F7  .  0 

BAF  (  4 ) 

Shoulder 

3  4-40 

F  7 . 0 

BAF ( 5 ) 

Elbow 

4  >.4  7 

F7 , 0 

BAF ( 6 ) 

Wrist 

M 

4  H  "  4 

F7  .  0 

BAF  ( 7 ) 

Traceon 

5  3  -  o  i 

F7 . 0 

BAF  (8) 

Nose 

6  2-68 

F7 . 0 

BAF ( 9 ) 

Harness  lap  Duc>;Ie 

69-75 

F7 . 0 

BAF  (10) 

Shoulder  harness 

s 

1 

Card 

Number  4  -- 

Panel  and  seat 

fiducial  data  in  counts. 

] 

i-  5 

6-12 

F7 .0 

XPF 

Card  ID 

X  ^  Lexan  Pant^l  FXD  riauciai 

> 

4 

13-19 

F7 . 0 

YPF 

y  Lexan  Panel  F\\D  fiducial 

20-26 

F7 . 0 

XPA 

X  -  Lexan  Panel  AFT  fiducial 

2  7  -  4  3 

F7 . 0 

YPA 

y  '  Lexan  Panel  AFT  fiducial 

34-40 

F7 .0 

XSF 

X  -  Seat  Side  FWD  fiducial 

41-47 

F7 . 0 

YSF 

y  '  Seat  Side  FWD  fiducial 

48-54 

F7 . 0 

XSA 

X  ~  Seat  Side  AFT  fiducial 

5  5-61 

F7 . 0 

YSA 

y  -  Seat  Side  AFT  fiducial 

^lr  :  Nu-ibors  5  to  7  --  x,  y  coordinates  used  to  comoute  radii  oi 

body  elements  (in  counts) . 


dai'-.i  dumber  5 


V,  V  1  L  Ua’ n  s 

Fo rma  t 

Variable  Name 

Description 

1-  5 

Card  ID 

6-12 

F7 . 0 

XI  (2) 

X  - 

First  knee  point 

13-19 

F7 . 0 

Y1  (2) 

y  - 

First  knee  point 

20-26 

F7.0 

X2  (2) 

X  - 

Second  knee  point 

27-3  3 

F7 . 0 

Y2  (2) 

y  - 

Second  knee  point 

34-40 

F7 . 0 

Xl{3) 

X  - 

First  ankle  point 

4  1-47 

F7 . 0 

Y1  (3) 

y  '' 

First  ankle  point 

48-54 

F7  .C 

X2  (3) 

X  ~ 

Second  ankle  point 

5--61 

F7 . 0 

Y2  (3) 

y  - 

Second  ankle  point 

Card  Number  G 

Same  format  as  Card  5  above  for  the  x,  y  points  for  the  shou^'ier 
[XI  (4),  etc.)  ar:d  the  elbow  [XI  (5)  etc.]. 

Card  Number  7 

Same  format  as  Card  5  above  for  the  x,  y  points  for  the  wrist 
fXl (6) ,  Yl (6) ,  etc. ] . 

Card  Number  8  --  Trageon  and  eye  points  required  to  compute  the 

angle  between  the  Trageon-Nose  line  and  the 
head  z-axis  (in  counts) . 

1“  5  Card  ID 


6-12 

n .  0 

TX 

X  -  Trageon  point  ^ 

13-19 

F7 . 0 

TY 

y  '  Trageon  point 

measured  when 
the  head  2- 

20-26 

F7 . 0 

EX 

X  -  Eye  point 

axis  line  is 

27-33 

F7 . 0 

EY 

y  -  rye  point 

vertical 

(Note  that  the  head  and  hip  radii  are  computed  using  the  center 
points  from  the  0  frame  readings) . 


Film  Data 


the  following  six  cards  are  required  for 
each  of  the  six  plots. 


Card  Number  1  —  Time  in  milliseconds  for  this  set  of  film  data. 


Columns 

Format 

Variable 

Name 

Description 

1-  5 

ID  or  frame  number  (e.g.  TIME  =) 

6-  8 

A3 

ITM 

Time  in  milliseconds 

Card  Number  2 

1-  5 

15 

Frame  number 

6-12 

F7,0 

XSFF 

x  -  Seat  forward  fiducial 

13-19 

F7.0 

YSFF 

y  -  Seat  forward  fiducial 

21.-  26 

F7.0 

XAFF 

X  -  Seat  aft  fiducial 

27-33 

F7.0 

YAFF 

y  --  Seat  aft  fiducial 

34-40 

F7.0 

X(l) 

x  Hip  center  point 

41-47 

F7.0 

Y(l) 

y  -  Hip  center  point 

48-54 

F7.0 

X(2) 

X  -  Knee  center  point 

55-61 

F7,0 

Y(2) 

y  Knee  center  point 

Cards  3 

throuah 

6  have  the  same 

format  as  Card  Number  2  above; 

they  contain  the  x  and  y 

coordinates  of  the  center  point  for  each 

variable 

.  The 

number  in 

parenthesis  is  the  index  of  the  x  and  y 

arrays . 

Card  Number  3 : 

Ankle (3) , 

Shoulder(4),  Elbow(5),  and  Wrist{6). 

Card  Number  4 : 

Trageon (7 

),  Nose(8),  Lap  Buckle(9),  First  Shoulder 

Harness (10) . 

Card  Number  5 : 

Next  four 

Shoulder  Harness  points  (11  to  14) . 

Card  Number  6 : 

Last  two 

Shoulder  Harness  points  (15  and  16). 

(Note  that  the  seven  shoulder  harness  points  are  assumed  to  be 
listed  in  sequence  from  the  buckle  to  the  top  shoulder  point; 
that  is,  with  increasing  y  values.) 


148 


4 . 2 


B^ILM  DiGI'rr:'ING  PROt'EDURE 

The  title  to  be  printed  below  the  pictograr’i::!  n'd  1;  was 
manually  e  n  t  o  r  d  i  t  h  e  r .  y  1  ■  'i  r  ■ . 

Th'.  "  ro  "V  ;■  .^'’JU-recl  (Card  2:  — iy  on- 

teren  via  ihe  :-.-ybe'.;  .. 

The  Values  bioadths  aciv.ss  fiduciais  (Caro  j;  werv./ 
manually  entered  via  the  keyboard,  BAF '  s  1  thru  8  were  obtained 
trcm  ..  pretest  measurements  form.  BAF*s  9  and  10  c  oosidered 

to  be  constant,  the  shoulder  st-  jp  center- center  i.- .inc<  'ceing 
6.88  inches  at  the  sinclo  tree  ano  inch  just  abcc.--:  v::-_  ...aokle 
Loops.  The  distances  betw^-C';  ..c:  .ers  or  tlie  sr^ -c  i  ..r-,'r  .traps  .rere 
mean  ,red  prior  to  sev^-'ral  W;  Cv2  runs  tint  wo  th  i  'C'' 

rrcm  the  sinule  tree  to  tha  :  '  . •  r ^  1 -js  ,  e.c  were 

sidered  to  be  parallel  'v.-  ■>-  ;;at  oj. o  ^  ::  . 

The  rilm  rec  -r  h  .n  ^  :  ..w  .  :  o:  -'ted 

on  the  ■' r-od’:  ' rs  :  re  -  .  Xr  1  *  '  . 

The  film  was  tr  inoc  .t-  .  onril  "dv/  frame  in  which  rno  .tr'ia,-  i^ash 
was  first  obce^'vo  ;  ..  _  (00^1  v.d  ^  he  frame  cr^inrev  -  reset 

to  zero.  The  fi!'".  was  tran  spur  tec:  for*ward  in  thr  siirde-  :  a:";e 
mode,  the  operator  noting  the  frame  numbers  at  which  i  ^\ir^h, 

eighth,  twelfth,  sixt::?cnth,  'ovi  '  wentieth  O.Oi  sec^rr'  :  w  :  :nj  pulses 
appeared.  The  number  frnner  t:  i*  ne  ror^^tn  w  -•  rir-placed 

from  frame  zero  was  snbtr.nr^S'C  ea:h  ro‘  ti.r  :  numlaers 

to  determine  the  :  r.;  rns  '  .  V':  ■  *  •  ,  ■ 

The  film  was  transpor^tn  oacKward  whi^e  :  ^  i'.ji  re¬ 

served  the  changing  attitude  * 'o'  s  ib  le:- 1  *  h-m;  .  Pr.e  numt  er 
of  the  frame  in  which  the  head  appearer:  to  w-.s  nco,  -  T 

Identification  of  this  frame  is  strictly  subjective,  rhe 

error  resulting  from  this  judgment  remains  cons*  'o  ^  :  n.clr  .i 

the  processing  of  data  f rom  each  tes t . 
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After  the  film  had  been  returned  to  frame  zero  the  pro¬ 
jected  image  coordinates  of  the  reference  fiducials  on  the  lexan 
panel  and  the  side  of  the  seat  pan  were  digitized  in  the  order 
specified  in  the  format  for  Card  Number  4. 

Two  points  were  read  at  each  of  the  joints  on  the  subject's 
left  arm  and  leg  in  the  order  specified  in  the  formats  for  Cards 
5,  6,  and  7.  These  points  were  digitized  to  define  the  diameter 
of  the  circles  representing  the  joints  on  the  pic to grams .  The 
ankle  of  the  subject  was  not  in  the  field  of  view  at  frame  zero, 
so  the  film  was  transported  to  a  frame  in  which  it  was  visible. 

The  readings  of  the  ankle  points  were  read  and  a  tracing  was  made 
in  black  ink  on  clear  acrylic  sheet  of  the  fiducials  on  the  ankle, 
knee,  and  intermediate  point  on  the  lower  leg.  The  tracing  also 
included  the  outline  of  the  shin.  This  overlay  was  later  used  tc 
locate  the  ankle  fiducial  when  it  was  outside  the  field  of  view. 

The  film  was  transported  to  the  frame  noted  as  ti  one 
in  which  the  head  was  erect  and  the  coordinates  of  the  fiuc  ials 
at  the  trageon  and  nose  were  digitized  as  specified  in  the  format 
for  Card  Number  8. 

The  film  was  returned  to  frame  zero.  At  this  ^^oint  it 
is  well  to  note  the  possibility  that  on  some  films  the  synchronizing 
flash  can  be  bright  enough  to  wash  out  the  images  of  sonic  of  the 
fiducials .  Had  this  occurred ,  time  zero  data  would  have  been 
digiti  :ud  from  frame  -1  (99999  on  counter). 

Time  after  initiation  (msec)  was  entered  manually  via  the 
keyboard  as  specified  in  the  format  for  Film  Data  Card  Number  1. 

The  coordinates  of  the  projected  images  were  digitized  in  the 
order  specified  in  the  formats  for  Film  Data  Card  Numbers  2  thru  6. 
All  points  on  the  seat  and  the  subjects  were  defined  by  the  fidu- 
-'iuis  With  the  exception  of  the  shoulder,  the  elbow,  and  the  wrist. 
As  arm  elevated,  the  arm  segments  demonstrated  rotary  motion 

tf.v'  fiducials  on  the  elbow  and  wrist  to  rotate  forward 

ro  the  image  of  the  arm.  (Dummies  with  pinned  joints  do 
t  r  1  t.f.'  this  rotation).  At  the  shoulder,  elbow  and  wrist 
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the  points  digitized  were  the  estimated  geometric  centers  of  the 
images  of  the  joints. 

The  first  point  diqitized  on  the  harnef^s  was  thn  ('enter 
of  the  buckle.  The  second,  third,  and  fourth  poirits  were  ciigize  : 
upward  along  the  left  shoulder  .strap  betw^-^en  the  buckle  and  th»- 
clavicle.  The  fifth,  sixth,  and  seventh  points  were  diaitized 
upward  (rearward)  along  the  left  shoulder  strap  between  the  claa 
icle  and  seatback. 

4.3  RESULTS 

The  pictograms  generated  by  the  test  case  are  illustrated 
in  Figure  31.  The  format  and  the  presentation  of  the  body  segment 
positions  appear  to  accurately  reflect  the  projected  images  in  the 
film  frames  from  which  the  data  were  extracted.  The  projection 
of  the  shoulder  strap,  as  plotted,  does  not  accurately  reproduce 
the  observed  path  of  the  strap.  A  need  to  review  tne  techniaue 
used  to  digitize  the  strap  data,  and  to  improve  the  method  of 
fitting  a  curve  to  the  data  is  indicated . 


# 


r 


1 


APPENDIX  A 
PROGRAM  HIFPD 


MI  F  CD  (INPU>  ,  OUTPUT  ,  T  A  Pt  I N  T  »  T  A  PEf- =  0  L  1  F 'J  T  ,TaPf<^)  QOOlOO 

JiHii  nSION  30e)  ,  \^£l  (  2  )  ,  HS  <  TC^')  ,  wh  (  t'  ’  ,  ws?  ,  Wh  -  (  J0^)  ,  00  012C 

1  HEADL C 0 ) , HEAOR ( 8 ) , HeAOC « 8 ' , DATA ( tC ?4) ,  V NPP f T ) ,  » nP(  ( 5 )  030140 

2,  ’C2I  ,  ,  A^C  3C2)  ,AZ(  302;  0  00150 

D  D^MOn  JD,  JP  ,  NN  ,NP  ,NC1  ,NC?  ,  x»(  (  33?  ,  6)  ,  ZZ  f  3C  2  ,  b  )  ,  lUAL  <  0  .  ,  0  0C16C 

:  JFR  MP?),X(  30  2re), 7(3  02, 6)f  ID  0C0180 

TACC;,  (30  2)  ,  CAc.  (  8)  ,  XD  (  3C.  ?)  ,  ZD  (30?)  ,U  32?  /  ,CI  (  3C2)  ,  DC  (  3C?  )  0  0020  0 

C04N0N  /CPLTC/  HE ADL ,TITLE (10 ) , IPX, OYlF  3C0220 

F  Q'JI  VAL  FNCE  (  RES  (1),HS(1)  ,OI(l>),  ()fFLll),MH(l)  ,OCil))  ,  :ACD(1}  ,W5  2(0002  40 
ll)),(ACCG(l),MH?(t))  000260 

r, ( XX  (1, 1)  ,VX( 1) )  ,  ( XX (1 ,?)  , AX { 1) )  , (2Z(1, 1)  ,  VZ ( 1 > )  ,  (  ZZ  (l, ?)  ,AZ (1) )  0  0  02^3 

DATA  ENDJ/IOhEMD  /t  YN PR/3 H YE S , 3 H Y E S , 3H  NO/ , YN PL / 7H YES ♦ 3H  N0000280 

1,3H  NO/  000333 

DATA  HrA0R/9H  RANGE, 9m  SLED,9H  hip,9m  KNEE,  03032C 

1  9H  SHOULD£R,9h  ELeOW,9MHEAD  PT  1,9HHEA0  PT  2/ ,  00034C 

r  HEA0L/5HRAN&E,4HSt£D,3HMlP,4HKNEE,aHSH0ULDEP,5HrLB0R,9HHEA0  PT  1300360 

3,  9HHEAD  PT  ?/ ,  000380 

4  hEAOC/Tm  range, 7H  SLED,&H  HlP,7h  KNEE,9H  ShQ ULOE 0 0 040 0 

5R,7)*  ELBOW, 9MHEA0  PT  l,9HMEAr  ^T  2/  000420 


myge  impact  facility  Photometric  data  analysis  program 


PARAMETER  NAME  v/ERSUS  ID  COOE 
CODE  NAME 

1  RANGE 

2  SLED 

3  HIP 

4  KNEE 

5  SHOULDER 

6  ELBOW 

7  head  PT  1 

6  HEAD  PT  2 


IRx=L  — —  MO  x-Axis  Change 

IRX^l  — -  CHANGE  POLARITY  OF  X-AXIS  DATA  (MULT. BY  -1.0 

ITyPE  =  0  -  READ  AND  PROCESS  ALL  8  PARAMETER. 

ITYPE=1  -  READ  AND  PROCESS  ONLY  PARAMETERS  1,  2,  7  AND  8. 

XPR<1  PRINT  RAW  DATA  IN  COUNTS 

ICAM=0  —  CAMERA  IS  NOT  ON  THE  SLED 

XCAM^l  —  camera  is  on  THE  SLED;  translate  and  ROTATE  DATA. 
IA0J  =  0  —  Nfl  X  OR  Z  adjustment  READ  OR  APPLIED. 

IAOJ=l  —  XADJ  and  ZAOJ  are  READ  AND  ADDED  To  AL^  X  AND  7  DATA 
BEFORE  any  tab  OUTPUT. 

IPL=C  —  PRTNT  AND  PLOT  LINEAR  VEL  ANO  ACCEL  DATA 


^000460 

000480 

^000500 

00052C 

0CO540 

000560 

030580 

000600 

000620 

000640 

000660 

000660 

000700 

000720 

000740 

030760 

^000780 

^000600 

030820 

000640 

000860 

000860 

030900 

008920 

00094C 

030960 

000980 

OCIOOO 

OC1020 

001040 

001060 

0C1060 

001100 

Q0112C 

001140 


p 


I  Pt  - 1  —  j  t< . 

.  1NL«-  W 

A 

.»  1  lC  t 

.  ;  A  .  A 

U  A  1  b  C' 

c 

IPL=?  UHi) 

*  NE  A  h' 

a  K 

‘  C  cl  1 

JA  7  A 

J : :  1  1 

c 

0.120.. 

1PA  =  C  PRlNf 

A  Ml  PLU  J 

A 

N^ 

JLaP  Vl 

A  NO 

ACCE  .  O.A  i  A 

O  Ul2.  'j 

c 

IPA=1  -  PRINT 

A  Nb  U  L  A  '' 

VF 

1 

AN.  ACC 

t ,  J  A  ■ 

A 

3  a  1  ?  -  c 

c 

:PA=2  —  OMIT 

A  No  Ut  A  P 

Vc. 

A  H  b  ACC 

El  UAi 

A 

3  ..  1  2  K  . 

c 

0  3  1 :  "  D 

c 

I  PC  ■• :  PRi  Kl 

A  nC  »•  l  t 

-■ 

a  K 

A  r  1  £  ^ 

Vl  -  S  IC 

1.  c  c  ..  j  '  .  i 

3  u  1 T  n : 

irC  =  l - CRIfJl 

P  AKA  Mi-  1  L 

V[ 

►  ’  *.  C  '  S  -  - 

c  ..  A  "* 

G  .  1  . 

c 

,:pc-2  '■  OMIT 

F  tP  A  1E  f  £ 

D 

v: 

■S.S''  .V 

. 

3  Q 1  3  u 

3u;3^r 

r 

■JISPIACLH-NT,  V£ 

A  ■  ^  AC 

c  ? 

i. 

UA  TA  AR 

C  CCHP 

U  i  L  Li  -  C- 

'  St  . 

:  •  0  J 1 3  ^  c 

OfiTA.  ID(T-  iENC  JONT/^lS  T  h'  ^-fTS 

FOR  PAKAMEIER  ANd  REFERENCE  RE jP L CT I Vt . 1 . 

^D(IJ  — *  L.UNTAlSb,  PftRfl’it  rt'fv  lUcNT  COD'. 
IR(T) - CONTAINS  RCFER.O.^:  1 OE  N  r  fCPC 

TITLE  tl) - CCNTAiNi,  THE  DATE 

TirLE(2) - CONTAINS  t  il  TEST  nuh*jEK 

TITLEiB)  - -  TITlE(IO) - CChTAIn  An  at 


Pt  T  I  :  L  C 


CAl  (J> - CONTAINS  fHE 

ThROUCh  8, 


;ALlBRAtl3N  SACTuRS  FOh  HARAhLTL-^: 


JO  — •  FRAHE  NUNBEF  CF  FIRST  FRAME  PlCMLO  VERSUS 

SLED  ^'LOT,  lR£DE^INEl.  A^TER  iNP’JTj 

JR - frame  NJMBLR  of  :.AST  FRAME  PtOFTEU  jU  PA^^AM-UR  vE- S  iS 

SLED  '^LOT.  (REDEFINEI  AFTER  INPUT) 


CALL  PLOTS(OATA,1024,7) 

MAXN  IS  THE  MAXIMUM  NUMBER  OF  FRAMES  RHlCH  CAN  BE  PRCCE^Sit 
ABOVE  ARRAY  DIMENSIONS. 

MAXN=lf  0 
MAXN=302 
Cl  =-1.0E10 
CAL^1)=0.0 
IC AL  ( 1)  =1 
=3.141642. 

?I2=2.( ♦PI 


NT  T  M 


c :  1 4  c :: 

0  0  1 4  c 

;  0 1 4  ^  r 

0  c :  ^ : 
0  a  1 H  8  c 
G  c  1 '  0  c 

QCIS^O 
0  0  i  S  ^  C 
J  ..  1  5  F.  T 

T  c  1 6  e  c 

C JIFUO 
3r  ifc-r . 
3  Cl E - f 
o:ibb" 
ocib 
n  c  ;  7  J  r 
0C172C 
3  0174C 
0C17^C 
00178u 

olibg  r 
a  31  82C 
ooiFwr 
0  J1 6  o  0 
0  D 1  8 
juiBC': 
0^1P?3 
ociP4r 


PI  34  =  3.  C*PI  '4.  0 

C  NP  13  the  NUMBtR  3F  POINTS  JS:'>  I-  1 

C  NP=11 

c 

C  REAL  TLSf  SETu^  .,^RDS. 

C  TITLEil)  CONTAIN*  Tm£  OiTL. 

READ  Ibf  1010  J  T  T  Tl  £  { 1 ) 

5  PEAD  (5,1310  (TIVLE  (I  >  ,  *  =  3,  IC  - 
IF  (TITlE(3)  .FO.  En[jj)  Gr  TC 

C  REAO(5,1005)  NPl,NP?,jn,JF 

C  IF  (NPl  .LT.  3)  NP1=11 

C  IF  (NP2  .lT.  3)  MP2=11 


3 

lA'T 

3  J20o : 

n 2  0  ?  "* 
c  j2c - : 

JC2Pf 

0  C  2  U  :  r 

Out*! : : 

GCCIT'* 

C02i4r 

^CClfcC 

0^21“C 


TITLE(2J  contains  The  TEST 


c 


QQZZbO 

READ  (5,10  30)  TITLE  (2)  ,  IRX,  IPR,  ITYPE  ,  IPL  ,  IC AM,  IPA ,  lAO  J,  IPC  ,  JO,  JR,  M,  002230 
1  (IO<I) ,IR(I} ,I»1,12),WP,0TIP  002300 

IF  (NP  .LT*  3)  NP*11  002320 

IF  (lAOJ  .GT,  0)  REAO(5tl020)  XAOJ,ZAOJ  002340 


REAO<5,1020)  or, (CAL (J) ,J^2,0) 

IF  (JD  .LT.  1)  JD*1 
IF  (JR  .LT.  1)  JR»999 
WRITE (6, 2500  TITLE, NP 
IF  (lAOJ)  440,440,450 
440  lAOJsO 

GO  TO  455 
450  lADJsl 

495  IF  (ICAH)  460,460,465 
460  ICAN>0 

GO  TO  470 
465  ICAHsI 

470  IF  (7RX>  460,400,490 
460  IRX«0 

GO  TO  495 
490  IRX»1 

495  IF  (XPR)  500,500,505 
530  IPR»C 

GO  TO  510 
535  IPRsl 

510  IF  (IPL-1)  515,525,520 
515  TPL=C 

GO  TO  525 
520  iPLsZ 

525  IF  (IPA-1)  530,540,535 
530  IPAsO 

GO  TO  540 
535  rPA*2 

540  IF  (IPC-1)  545,560,550 
545  1PC»0 

GO  TO  560 
550  lPCa2 
560  1=1 

IFLAG«0 
NC1»1 
NC2=999 
IFRD=^100 

IF(OT)  565,565,570 
565  OT«5C&«0 

570  IF  (ITYPE)  575,575,560 
575  ITYPEsO 
Jl*3 

GO  TO  IL 

530  ITYPEai 
Jl»7 

565  REAO(5,1000>  ICO ,  IFR  (I)  ,  ( X  (I ,  J)  ,  ?  ( I  , 
1) 

00  590  J«3,6 
X(I, J)a0.0 
590  Z(ItJ)=C»0 


002360 

1)02360 

002400 

3u24ar 

002440 

002460 

002460 

002500 

002520 

002540 

002560 

002560 

002600 

QQ2620 

002640 

002660 

3Q266Q 

002700 

002720 

032740 

002760 

002790 

002800 

002620 

002840 

0Q2660 

002660 

OQ2900 

002920 

602940 

a&2960 

002980 

003000 

003020 

003040 

003060 

003000 

0Q310C 

003120 

QQ3140 

003160 

003100 

003200 

003220 

003240 

)  ,  J»l,2)  ,  tXd,  J)  ,Z  C  ,  J)  ,Ja7, 8003260 

003280 

093300 

003320 

00334Q 


156 


IF  (ICO-1)  595,595,10c 
595  IF  (IFR(I)-IFRO)  600,600,610 
600  WRITE(6,2410)  IFR(I) 

IFlAG=1 

61D  IFR0=IFR(I) 

GO  TO  4C 

FROM  here  to  label  1151  READ  A  HAXIMUH  OF  -MAXN*  FRAMES  OF 

10  READ  (5, 100  0)  I  CO , IFR (I } , < X (I , J) , Z (I , J ) , 1 , 4) 

FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  OATAl 
IF  (ICO-1)  15,15,100 

IF  (ICO-l>  100,15,100 
15  IF  (IFR(I)-IFRO>  20,20,25 
2D  WRITE(6,2410)  IFR(I) 

IFLAG=1 

25  READ (5,1000)  ICD,IFRO, ( X ( I , J) , 2 ( I , J) , J=5 , 8 ) 

FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  OATAl 
IF  (ICO-2)  30,30,70 

IF  (ICO-2)  70,30,7C 

3C  IF  (IFR(I)-IFRO)  35,40,35 
35  WRITEt6,2400)  IFR(I),IFRD 
IFLAG*1 

••C  T(I)  =FLOAT<IFR(I)  )/OT 

IF  (IFR(I)  .£Q.  JO)  NC1=I 
IF  (IFR(I)  .EQ.  JR)  NC2«I 
ADO  'XADJ'  AND  '2AOJ'  TO  I-TH  DATA  POI NT  I 
IF  (lAOj)  55,55,42 
42  00  45  J*l,2 

X(I,  J)  3X  (I,  J)  4-XAOJ 
45  Z(I,J)sZ(I,J)^ZAOJ 
00  5 C  J«Jl,fl 
X(I,J)*X(I,J)4XAOJ 
50  ZlI,J)sZ(I,J) ♦ZAOJ 
35  IF  (I-MAXN)  6G,60,65 
60  I=I>1 

IF  (ITYPE)  10,10,585 
65  WRITE(6,2640)  HAXN,IFR(I1 
IF  (ITYPE)  10,10,585 
70  WRITE (6, 2000)  ICO,IFRD 
ifla&=i 
GO  TO  10 

lie  IF  (ICO-9)  110,115,110 
110  WRITE (6,2000)  ICO,IFR(I) 

IFLA&=1 

IF  (ITYPE)  lw,lD,585 

115  M*I-1 

OTT» (T ( N)-T (1) )/FL0AT(N-1) 

IF  ( IRx)  116, 118 , 116 

116  DO  117  Isl,N 
00  117  j*i,e 

117  X(I, J)»-X (I, J) 

PRINT  TEST  parameter  SUMMARY  PAGE# 


: c  • 

"  A  T 0  0  5 '  c: 
c 

0  C3t  4 : 
Q  .  iS  t. : 


.  ' 

C  U  41 .  c 
i;  D  4  1  A*  r 
0  C  **  1  6  L 
0  J  **  1  ^  r 

C  uh:  1  ;• 

w  ^  L  1 
0  J42«  L 

r  c 
u  C  "  j  c 

0  r  H  3  6  r 
c  4  *  -  r 

0  0  4m 


il'?  HKlTtvD,JluCJ 

nP  I  T  t  U)  ,  iC  J  T  :  T  L  1  t  ?)  ,  N  ,  J  T  ,  >  ,  I  T  T  »t  ,  ICAm  ,1A0  J  ,  IPR, 

i  < :  0  <  N  , :  p  n  M  I  - 1 .  M) 

wK. :  T  r  1  ^  w  >  i  n£  a  r*L  1 1 »  ,  i  =  ^ ,  a ) 

WKlTt(b,21JC* 

iIA3.  .JrT.  0^  hr:  re  i6, 2135)  <A0J,7ADJ 
write:  ib  ,21WC)  OTT 
wR : Tf » c , ri50 /  N 
wRI7f.  TsRLi2*IR>^) 

WKll  £  f  t  ,216  0)  YNPRdPR^D 

WRiTt  (  6 , 21^P)  YNPK  (  :  PL4l  ,  YNPL  (IPl^D 

WRITE  ih  ,  2160  )  >NPR  ClPA^l)  ,  TNPL  (IPA^^i) 

wPirE(6,2l7D>  r^rfPR  aPC^l)  ,  YNPHIPC^I) 

DO  l3u  J*?,p 

IF  (  ABS  (CAl  (  J)  )  >  12:., 125,130 

120  CAt ( J) =1. 0/CAl  U) 

ICAL  (  J)  =1 
GO  TO  130 
125  ICAL  U)  =0 

WRITE ife,2620)  HEAOL  t  J) 

1 30  DONT INUE 

HRir£»6,257C) 

IF  £M)  137,137,132 
132  UO  135  K=l,M 
JO  =  IOr  <) 

JR-IR IK) 

If  <IC:Ai.(JO)  .lT.  1  •OR.  ICAHJR)  .lT,  1)  00  TO  135 

WRITE  (6,2210)  K,MEAnLt  JD)  ,HEA0L  UR) 

135  continue 

137  IF  (IPR^  lRO,140,lb5 

C 

C  PRINT  RAW  INPUT  DATA  IN  COUNTS. 

C 

IRC  WRITE (6,2500)  TITLE, NP 
WRITE(6,2550> 

WRXTE(6,2560)  HfcADC 
DO  145  r=l,N 

3  w5  WRITE  (6,2  560  IF  R  ( I )  ,  (  X  1 1  ,  J)  ,  2  ( I  ,  J)  ♦  J-1 , 6 ) 
write  (6,2500  TITLE, NP 
WRlTE<b  ,2552) 

WRITE  (6,2560  riEAGC 

C  OOhPUTE  ANO  print  FRAiiF  TO  FRAME  UtPP'ERENCES  IN  COUNTS 

C 

..F  (  ITYPE)  lHtt,146,146 
146  CO  1-.7  J  =  3,6 
XO( J) =C . 0 
1^*7  XD(J)=C.Q 
l^e  00  Ibt  1^2, N 

XO  (l)*x  (I  ,1)-  X  CI-1  ,1  ) 

20(1)=7(I,1)-2CI-1,1) 

X0(2)=X(I,2)-X(I-1,2)-XD(1) 

2D(2)=7(I,2)-Z(l-l,2)-20tl) 

DO  153 

X0(J)=X(I,J)-X{I*1,J)-XD(1) 


0G446C 
IPA, IPC, M, 004460 
004500 
004520 
0  &45n0 
Q  0456Q 
004560 
0  0  460  C 
004620 
0  u46h 0 

0  Q466 0 

004660 
00470C 
004720 
004740 
00476G 
0047B0 
3  04600 
004620 
004640 
004660 
0  04660 
004900 
004920 
004940 
004960 
004980 
035000 
OQ502D 
035040 
0  !)506C 
005Q60 
005100 
005120 
005140 
005160 
005180 
0352JQ 
0 J5220 

005240 

4)»5260 

005280 

005300 

00532Q 

305340 

005360 

005360 

005400 

305423 

005440 

D0546Q 

005460 

OC5500 

005520 

005540 


tJ 


1 


i 


150  zocj)=^z  (I, 

WRITE (6,2580)  IFR<I),(X0(J),ZD(J),J=1,8) 

160  CONTINUE 

C  CONVERT  DATA  FROM  COUNTS  TO  FEET. 

165  IF  ClFtAG)  170,170,167 
167  WRITE (6,2500)  TITLE, NP 
WRITE(6,2830) 

GO  TO  5 

17C  IF  (ICAM)  175,175,650 
175  DC  185  1=1, N 

r 

C  HI  AND  H2  ADJUST  DATA  FOR  SHIFT  IK  RANGE  REFERENCE  READING. 

H1=X  (I,  1)-X(1,1) 

H2  =  Z  (I,l)-2(1,1) 

X ( I, 2)  =  (X (1,2  >-Hl) *CAL (2) 

2(1, 2)  =  (Z  (I,2)-H2I  ♦CAL  (2) 

DO  le:  J=J1,8 
X  (I,  J)  =  (X  ( I,  J) -HI)  ♦CAL  (  J) 

130  2  (  I,  J)  =  (  Z  (I ,  J)-H2)  ♦cal  (  J) 

185  continue 

DO  860  NP=NP1,NP2,2 
GO  TO  695 

b50  IF  (IPR)  655,655,660 
6  55  WRITE (6 ,2500 )  TITLE, NF 
WRITE (6,2540) 

HRITE(6,256B)  HEAOC 

call  subroutine  'ROTATE'  TO  ROTATE,  TRANSLATE,  AND  CALIBRATE  T-E 
ON-BOARD  CAMERA  DATA  (ICAH>0). 

660  call  ROTATECN, J1 , IPR) 

C  COMPUTE  THE  mean  AND  STANDARD  DEVIATION  ABOUT  Th£  H£AN  FOR 
C  reference  OATAl 

695  call  MEAni (N, X (1,2) , Z(1,2)  ) 

N1=(NP-1) /2^i 
N2=N-N1 
N3=3^N1-2 
N4=N-N3  +1 
NN=N2-N1  *^1 

IF  (IPC+IPA-4)  700,800,800 

z^*^*^******  COMPUTE  PARAMETEP  VERSUS  SlEO  DISPLACEMENTS. 

u 

TOO  DO  725  J*3,8 
JJ*J-2 

IF  (ICAL ( J) )  715,715,705 
7a5  DO  7lC  1=1, N 

XD  (  I  )  =X  (  I  ,  J)-X  (I  ,2) 

710  ZO  (I )  =Z  (I  ,  J)-Z  (1 , 2) 

1»  1 

CALL  SM  (T ,XO, XX ( I, JJ) , N,NP) 
call  SM (T , ZD, ZZ( I , JJ) , N,NP) 
vGO  TO  7  25 

715  DC  720  I=N1,n2 
KX  (I  ,  JJ ) =0.  C 
720  ZZ  (I , JJ) =0.n 


Cu556: 
005580 
0C5600 
3  35620 
0  05640 
005660 
0  056  SO 
0057C: 
0  3572C 
0  0574C 
0  05763 
JQ57  SC 
0  0580  Q 
005620 
0  058^4 (i 

0C566C 
0  05S  8C 
0059C3 
0  0592C 
0059^0 
005960 
0  :5-«c 
0  CbC  3  0 
O-buj: 
Q  (?6L  ** '’ 
u  0  6  G  b  C 
V.  .  bC  . 
n  36100 

c  :6i:c 

0  061  *40 
006150 
3  061  51 
0C616C 
0  0  b  1  3  C 
OObPUC 
0062^3 

3  062.4: 
0  G62bC 
3  06?  ?3 
U063CC 
0  C  b  3  :  0 
0  0  6340 
0-6360 
U  063  6C 
0O640C 
orb**.-*: 

0  0  6*4h: 

0  0646C 
"l'  0  64  8^ 

r  06500 
J 366 ?C 
:  65  -  r 
006*^60 
0  365  53 
2  CbbOG 


) 

J 


CONTINUE 

IF  (IPC-1)  72S,726,743 
726  LlNE=bP 

CO  74C  I=N1,S2 
IF  (LINE-SOJ  735,730,730 
730  WRITE (6,2500)  TITLE, NP 
WRITE(6,2555) 

WRITE(6,2565)  (HEAOC(J) ,J=3,8) 

LlNE=  C 

C  PRINT  PARAMETER  VERSUS  SLED  DATA. 

7  35  WRI' E(6,25«5)  IFRdJ  ,  f  <  I )  ,  <X  X  ( I ,  j  Jl  ,  Z2  ( I ,  J  J>  ,  J  1 , 6  - 
LINE=lINE4-1 
7kQ  CONTINUE 

IF  (TPC)  742,742,743 

742  IF  (NCI  .LT,  Nl)  NC1=N1 
IF  (NC2  .GT.  N2)  NC2atN2 
NN=NC2-NC1+1 

1P  =  1 

C  PLOT  parameter  versus  SLED  DATA. 
call  CPLT(T,0I,DC,IP) 

HRITE(b,2595>  IFRCNCl) vIFRfNC2) 

743  IF  (IPA-2)  745,800,600 

C  COMPUTE  angular  velocity  and  acceleration;  here  '"0  LABE-^  775. 


745  XO(Nl-l>aPI 
20  :Ni-i)aPl 

IF  (ICAL(3)+ICAL(5>-2)  756,750,750 
750  00  755  IeNl,N2 

H1=ZZ(I,3)-ZZ  (1,1) 

H2sXX(I  ,3)-XX  (1,1) 

C  SHOULDER  -  HIP  ANGLE 
XO (I) =ATAN2(H1,H2) 

IF  (XOCI)  .LT.  0.0)  XD(I) =XD (I) +PI2 
IF  (AaS(XO(I)-XD(I-l))  .GT.  PI34)  X0(r)*XD<I)*PI2 

755  continue 

CALL  DERIV1(T,X0,NS,N,NP,1) 

CALL  DERIVKT  ,  WS,  WS2  ,N,NP,  2) 

GO  TO  753 

756  00  757  I=N1,N2 
X0(l)=0#0 

MS  (I)  =  c. 0 

757  HS2(I)=t*0 

758  IF  {ICAL(7)^ICAL(8)-2)  762, 7 59, 759 

759  DO  760  I-N1,N2 

HI ^ZZ (I ,5 )-ZZ (1,6) 

H2  =  xx  (I  ,5)-XX  (1,6) 

C  HEAD  PT  1  -  head  PT  2  ANGLEl 
2D(I)*ATAH2(mi,H2) 

IF  (Z0(I)  .Lf.  Q.fl)  ZO(I)=ZO(I) ♦PT2 

IF  l ARS  (ZD(I)-2D(I-1) )  .GT.  PI34)  Z D ( I ) = Z D (I )  ♦ P I  2 

760  continue 

CALL  DERI  VI  ( T  , ZO, WH, N, NP, 1 ) 

CA  ;.L  DEF  :  v;  ( ,  WM  ,  rtM2  ,N  ,  NP  ,  2J 
CO  763 


Cab62C 
006640 
0  0^^6  6'* 
QObbdC 
006700 
0u672: 
a067^0 
0  0676C 
Cu676C 
oobeoc 
006620 
006640 
0  0686C 
006660 
006900 
006920 
006940 
006960 
006980 
007000 
007020 
0  0  70  4  Q 
007060 
0C7C  60 
007100 
007120 
007140 
007160 
0  07190 
007200 
007220 
007240 
007260 
0  07280 
007300 
0C7320 
0  C73‘.r 
0  C7360 
DC738C 
037400 
C07420 
0  C7440 
007460 
0  0748C 
0  G7500 
CC7520 
007540 
OC 75 60 
007580 
007600 
007620 
007640 
007660 
0  C768C 
007700 


762  DO  764  I=N1,N2 
2D(I)=C.O 
WH(I)=0.0 
764  HH2(I)=C.O 
76fl  LINE =60 

DO  775  I*N3,N4 
IF  (LINE-50)  772,770  ,77C 
77C  WRITE (6,2500 )  TITLE, NP 
HRITE(6,2551) 

HRITE(6,2520) 

LINE=  0 

C  »RINT  ANGULAR  VELOCITY  AND  ACCELERATION. 

7  72  WRITE (6, 2590)  IFR(I)  ,T (I)  , XO ( I ) , WS ( I ) , MS 2 ( I )  , Z D ( I )  , HH ( I)  , WH2 ( I ) 
LINE=LINE^1 
775  CONTINUE 

IF  (IPA)  700,780,800 
780  IP*2 

NN  =  N4-N3-t'l 

JD=5 

JR  =  3 

IF  (  ICAL(3>^ICAI.  (5)-2)  790,7  85,785 
C  PLOT  ANGULAR  VELOCITY  AND  ACCELERATION  DATA. 

785  CALL  CPLT(T(N3),WS(N3) ,WS2(N3) ,IP) 

790  JD=7 
JR=8 

IF  (ICAL(7)+ICAL(8)-2)  800 ,795,795 
795  call  CPlT (T(N3) ,WH(N3) ,WH2 (N3) ,IP) 

830  CONTINUE 

IF  (M  .LT.  1  .OR,  IPL  .EQ.  2)  GO  TO  5 
DO  2C:  J=2,8 

IF  (ICAL(J)}  200,200,190 
190  DO  195  1*2, N 

X(I,J)=  X(I,J)-X(1,J) 

195  2(1, J)*  Z(I,J)-Z(1,J) 

X(1,J)=  0.0 
Z(1,J)*  0.0 
200  CONTINUE 
IP  =  3 

C  202  DO  410  NP=NP1,NP2,2 
C  N1=(NP-1)/2^1 

C  N2=N-N1+1 

C  N3=3*Nl-2 

C 

NNsN4-N3>i 


C  COMPUTE  LINEAR  VELOCITY  ANO  ACCEL  DATA  FOR  PARAMETER  IO(K)  WITH 
C  RESPECT  TO  IR(K);  HERE  TO  LA6EL  400. 

C 

no  400  K=1,M 
JD=I0(K) 

IF  ( JO  • LE.  D  GO  TO  390 
JP=IP (K) 

IF  (JR  .LT.  1)  GO  TO  395 


007720 
007740 
0077e0 
0  G77  eu 
007802 
007820 
0C78‘^l 
307660 
0  7  6  B  1 
00^9"  : 
jC792:> 
00794^ 
007960 
LU79ft0 
a08L30 
008020 
0  0  6  p 
008Q6Q 
006C80 

0  ■:  8 1  j  c 
008-120 
008143 
008163 
0  0  i  i  0 
0  0  82  DC’ 
9Q6220 
008240 
00626C 
00Q?8‘' 
Q0830Q 
008320 
006340 
00836: 
Gn83fi< 
00840  '< 
u06420 
008440 
0 w846C 
00848C 
00850: 
a0852r 
008540 
003560 
00656C 
008f  00 
3086^0 
0L8640 
OL'666: 
0086  80 
C08700 
008720 
0  J6740 
008760 
OC8780 
006600 


I 


IF  (ICAKJD)  .lT,  1  .OR.  ICAlCJK)  .lT.  1)  '.C  TC  •♦QO 

XMP=  Cl 

?MP=C1 

«*<=  Cl 

)(MN  =  -Cl 

J*1N=-Cl 

DO  212  :=1,N 

(  JR-1)  2C5 ,205  ,210 

2Q5  01 ( I )=X ( I , JD) 

OC (I ) =2 (I , JD) 

GO  TC  212 

210  Cl ( : )=x { I, JO) -X(I , JR ) 

DC (I ) =Z (I, JD)-Z(I , JR) 

212  continue 

CALL  SM(T,OI, XD,N,NP) 

CALL  SM (T ,DC, ZO,N, NP) 

COMPUTE  MEAN  AND  STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  ShOOThEG 
AND  UNSMOOTHED  DISPLACEMENT  DATAl 

call  MEAN2(Nl,N2,0I,0C,XD,ZD,SMX,SMX2tSMZ,SM22) 

COMPUTE  MAXIMUM  X,  Z  AND  RESULTANT  DISPLACEMENT. 

DO  26r  I*N1,N2 

RES(  l)=SaRT(XDa)*XO(I)  ♦ZD  (I  ZD  (I)  ) 

IF  (XO(I>-XMP)  220,221,215 
215  XMP=XD(I) 

TXMPrT (I) 

GO  TO  230 

220  IF  (XO(I)-XMN}  225,230,230 
225  XMM=X0(IJ 
TXNN*T (I) 

230  IF  I2DfI)-ZMP)  240,240,235 
235  ZMP=ZDCI) 

TZMP=T( I) 

GO  TO  25u 

24C  IF  ( ZD(I)-ZMN)  245,245,250 
245  ZMN=ZDa) 

TZMN=T{ I) 

250  IF  (RES(I>-RM)  260,260,255 
255  RM=RES (I) 

TRM=  T(I) 

26C  CONTINUE 

COMPUTE  LINEAR  VELOCITY. 

call  0£RIV1(T,XD, VX,N,NP,1> 

CALL  0ERIV1(T,ZD,VZ,N,NP,1^ 

compute  linear  acceleration  data. 

CALL  UERIV1(T,VX,AX,N,NP,2) 

CALL  OERIVJ (T , VZ,AZ,N,NP,2) 

LIHE«60 

DO  28u  I=N3,N4 

VEL ( I)  =  SDRT ( VX  fl) ♦ VX  ri) ♦ V2 (I) »VZ { I)  ) 

ACC{  I)  =  SaRT(AX  (I)*AX(n*AZ(I)*A2(I)  ) 

IF  (lINE-50>  275,270,270 
?’r  WRITE! b, 2500)  TITLE, NP 

WRITE  (6,2200)  HE A  DR < JC ) , HE AQL ( JR ) 


DObe  2G 
G  0  9  6  M  C 

0  C8«bC 
C  Obb  90 
0  0890  C 
0  08920 
0  u8'^4D 
0  j89b: 

0  CPC  GC 
C  C9C2D 
0  G9043 
Q  C9C  bC 
Q  09C  bC 
009120 
Q«912C 
G2913C 
LU9132 
00914C 
C391bC 
QG9180 
00920D 
00922C 
009240 
009260 
009280 
009300 
0C9320 
009340 
009360 
009380 
0D9400 
009420 
009440 
009460 
0  C9480 
009500 
Q0952C 
019540 
00956C 
009580 
0u960C 
049620 
D0964C 
n09650 
009660 
0  09630 
00969C 
009730 
009720 
0C9730 
0C9735 
009740 
009760 
309780 


I 


WRITE (6,2510J 
LINE=  0 

C  PRINT  LINEAR  OISPL,  VEl  AND  ACCEt  DATA. 

275  ACCGd)  =ACC(I)/32.2 

WRITE{6,2600)  IFR  (I)  ,T  <I )  f  XD (I)  ,70(1) ,RES  (1)  , V E L ( I ) , ACC ( I >  * 
LINE=l  INE^l 
23C  CONTINUE 

IF  (LINE-40)  330, 33 Ut  320 

320  HRITE(6,2500)  TITl£,NP 

WRITE (6,2 20 C)  HE AOR( JO )  , HE  AQl ( JR) 

33C  WRITE (6,2700)  XNP,TXHR 
HRITE(6 ,2710)  XMN,TXMN 
WRITE (6,2720) 2WP, T7HP 
WRITE(6,2730)  2MN,TZHN 
WRITE<6,2740>  RHfTRH 
WRITE (6, 2920)  SHX ,SMX2 , SMZ ,SM22 

O 

C  PLOT  linear  velocity  and  acceleration  data. 

c 

35u  IF  (IPL)  360,360,400 

36C  CALL  CPLT(TfN3> , VEL ( N3) ,ACCG (N3) , IP) 

GO  TO  400 

390  WRrT£(6,2500)  TITLE, NP 
MRITE(6,2800)  K 
GO  TO  4l0 

395  WPITE (6,2500)  TITLE, NP 
WRrTE(6,281D)  < 

400  CONTINUE 
C  410  CONTINUE 
GO  TO  5 

999  WRITE(6,2900) 

CALL  PLOTE 
STOP 

C  FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  OATAl 
1030  FORMAT  (11,14,  «r7.,0) 

CIOOO  FORflAT(Il,I5,9F6,0) 

ICiO  FORHAT(8A10) 

1020  FORMAT(eFlO.O) 

10  30  FORM AT (A5, 8 II,  21 3 , 12 , 1 2(12 , 1 1 > , I  3 , P 5. 0 ) 

2030  FORflAK/  4X, ♦ERROR  IN  CARD  IDENTIFICATION  NUMBER;  CARO  I D  =♦ 

1  •;  frame  number  =*,I4) 

213C  FORMAK//  4X,»TEST  N  OT  IRX  ITYPE  ICAm  IADJ 


3  0  j  ^  C  0 
ac9iHC 
0u9650 
ACCG ( I )  0  09e  p.r 

n  . 1  ^ 
0C99  4r. 
0  C99fe: 
J  09960 
OluCuO 
Q 10020 

C  1 0  0  *♦  j 

OlOOFQ 
C:.JC6C 
51UT  j  C 

olo:  ?c 

010,40 
0' 0 IbC 
Qiaiec 
a  102  oc 

01Q223 

oia?uo 

313260 

D1 

310300 
010320 
010340 
010360 
01036C 
010400 
010420 
0104^0 
010460 
01048C 
310500 
010520 
010540 
01056C 
,12,  Q1Q59C 
0106DO 
IPR  QlObCO 


IIPL  IPA  IPC  M  SETSI^,12I4)  Oldb^O 

211C  FORMAT(  3X,A5, 16, Flii.3cl4, 716,15, 7X, 12(13,  tl)  )  010660 

2120  FORMAT(//  36X , 7 ( A 1 0 , 2X )  )  010650 

2130  FORMAT(  4X,*CALIB  DATA  IN  COUNTS  ^ER  F 00 T  i ♦ , F 9 . 3 , 6F 1 2. 3 )  010700 

2135  FORMAT(/  4X ,  •  A  QJUSTMENT  FACTORS  ADDED  TO  ALL  X  AND  :  InPL'T  DATA:  X010720 
1ADJ=*,F10.2,*  and  ZAOJ=*,Fl0.2)  010740 

21*,Q  FORMAT(/  4X,*AVERACE  TIME  INCREMENT  BETWEEN  POI  NTS  1*  ,  F  i  {  .  F  >  0  1076C 

2150  FORMAT (/4X, •number  OF  FRAMES  RfADl  •,l4,*  FRAMES^)  010760 


2155  F0RMAT(/4X, •REVERSE  POLARITY  OF  X-AXIS  DATA  (MULT,  pv  •,A3)0i08Dn 

2160  F0RMAT{/4X,*PR1NT  LISTING  OF  INPUT  DATA  IN  COUNTS)  •,A2)  OlO«2C 

2170  F0RMAT(/4X,*PARAMETERS  RELATIVE  TO  SLED  D  I  SPL  A  CE  MH!  NT  5  I  PRINT?  •,010P**0 
1A3,4X,»plOT?  •,A3)  010660 


2130  FORMAT ( /4X, •angular  VELOCI Tv  AND  ACCELERATION  DATA)  PRIN^?  •,J1086C 


I 


1A3,4X,*PlOT?  ’.AJ) 

2190  FORMAT (/4X, ^linear  VELOCITY  AND  ACCELERATION  PATAi 
1A3,4X,»PlOT'»  •,A3) 

22J0  FORMAT(//  31X,A9,*  nOTlON  RELATIVE  TO  THE  *,4^ 

2210  FORMAT(/10X,I2,*)  MOTION  RELATIVE  TO  THt  •jAq^ 

24J0  FORMAK/  4X, •ERROR  IN  FRAME  NUMBERS;  frame  NUMSe  t  On  CART 
1  •  frame  number  on  CARC  2 

241C  FORMAT(/  4X, •FRAME  NUMBER  IS  NOT  INCREASING,;  Cnf 
1  CARD  1,  FRAME=  *,15) 

2590  format (1H1,3X,»0ATEI  • , A J 0 . 2 0 x , • TEST  NUMBEPi  *,45/ 

1/  4X,6A10,5X, I2**  POINT  CUAQRATIC  FIT*) 

2510  format;/  32X, •displacement* ,1SX, •velocity  •,2(qx,*ACC 
A  4X, ♦FRAME*, 

•»2(5X, 


OlOBCC 
PRINT?  *,010920 
010940 
01096C 
01098C 
**,I4,01100C 

oiir  2c 

COUNT  *^ORdll04C 
011C6C 
011080 
011100 
EPATION*) /01112G 
011140 

1  4X ,*TIME* , dX,* X* , 10 X,*Z  • ,2 (5X, •RESUl T cnT* ; , 2 ( 8X , •RE S UL T AN^* ) / 0 lllbO 

6  4X,*  NO.  *,  Olliac 

2  4X  ,* (SEC) • *2(5X,*(rE£T)* ) ,6X,*(FEET)*,7v,*{PT/SEC)*,Tx,*(FT/SEC  011200 

?SQ)*,10X,*<G> •)  01122C 

2520  format;//  29X  , •shoulder  -  HI  P*  ,  2 1 X ,  •hE  AO  HEAD  pT  2*/  01124!: 

1  *  FRAME  TlME*f  2(  7x,*Th^  A*,  8  X ,  •  M*  ,  10  X ,  •  M- ACC*  ,  4X  )  /  3ll2feQ 

2  •  NO.  (SEC)*,  2  (NX, •( k  .UI ANS)  (RAO/SEC)  (RAO/SEC  SO)  •))  Q112SC 

2540  FORM  AT (//4X, •THE  FOLLOMlNC  IS  A  LISTING  OF  THE  INPUT  DATA  IN  CCUnT2ii3C" 

IS  AFTER  translation  AND  ROTATION  OF  ON-BOARD  CAMERA  OATAl*)  011320 

2550  FORMAT(//4X,’  hE  FOLLOMING  IS  A  LISTING  OF  THE  INPUT  DATA  IN  CCUNT01134C 

01176C 

listing  of  Th  angular  "TIOn  of  T01138C 

011400 

listing  of  0< I ) -or tl ) -3 V 1-1) ♦or ( I-O 11-2C 

C1144D 

^ISTING  OF  parameter  SLEC  O' 


ISI*) 

2551  FORMAT (//4X,*TH£  FOLLOWING  IS 
IHE  HEAD  AND  SHOULDER <*) 

2552  F0RMAT(//4X,»TME  FOLLOWING  IS 
11)  IN  COUNTSr*) 

2555  F0RHAT(//4X,*THE  FOLLOWING  IS 
ICEMENT  IN  FEET  I*) 

2560  F0RMAT(//  ♦  FRAME  ♦,  »(6X,A10)/  2X,*nO.*,  8(ex,*x*,t 

2565  FORMAK//  ♦  FRAME  TIME  •,b(  7X,A10)/ 

1  •  NO.  (SEC)*,  6(  7X,*X*,6X,*Z  •)) 

2570  FORMAT (//4X, •linear  DISPLACEMENT,  VELOCITY  AND  ACCELERA' 
lILL  BE  COMPUTED  FOR  THE  FOLLOWING!*) 

2530  FORMAT(1X,I4,2X,8(F9.0,F7.0) ) 

2535  FORM AT ( IX, 14, Fll. 5, 6 (F10*3,F7.3) ) 

2590  FORMAT (IX, 14, Fll. 5,2 (F 10. 3 ,F 11. 3 , Fl 3. 3 , 6X ) ) 


Pl  A0ll4bC 
01143'' 

■"•))  01150 

01152C 
u115nD 
jN  DATA  MCllSbO 
011530 
niibdo 
01162C 

nil64u 


2595  FORMAT (//4X,*THE  ABOVE  DATA  WAS  PLOTTED  (X  VERSUS  2)  fqR  FRAME  NUMQllbbO 


IBEP*  ,14,* 
2690  FORMAT(4X 

TO  frame  number* ,14) 
,J4,  Fll. 5, FIO. 3, Fll. 3, 

F12,  3,F15.  3,Flb.3,Fl7. 

3) 

01168C 

01170C 

2700  FORMAT  (/ 

: ,  F8.5) 

4X, ♦MAXIMUM 

POSITIVE  X 

Oi*SPLACEM£NT=*,F8.3, 

. 

AT 

TIME 

*011720 

01174.C 

2710  FORMAT(/ 
1,  Fd.5) 

4X,*MAXIMUM 

NEGATIVE  X 

OISPLACEMENTe*,F8.  3, 

. 

AT 

TIME 

*011760 
0  1178C 

2720  F0RMAT(/ 
1,  Fa. 5) 

4X, ♦MAXIMUM 

POSITIVE  Z 

DISPLACEMENTS* ,F8, 3, 

. 

AT 

TI«E 

♦«1180C 

011820 

2730  FORMATC/ 
1,  F8.5) 

4X, ♦MAXIMUM 

NEGATIVE  Z 

0ISPLACEMENT»*,Ffl.3, 

. 

AT 

TI  ME 

•011840 

*11860 

2740  FORMAK/ 
1,  F8.5) 

4X,  *MAXIMUM 

RESULTANT 

01 SPLAC£M£NT=*,F8.3, 

AT 

time 

*011880 

Cll?00 

2890  FORMAT (///4X,  *OHIT  COMPUTATIONS  FOR  SET*, 13/  4X,*ThE  PROGRAM  ISTllRCC 
1  NOT  designed  to  compute  range  DISPLACEMENT,  VELOCITY  AND  ACCE L E R AO i i c u n 
2TTON.*/  4X,*0ATA  PARAMETER  CODE  IS  LESS  THAN  OR  EQUAl  TC  1*)  OllQbO 

2810  FORMAT (///4X,  •OMJT  COMPUTATIONS  FOR  SET*, 13/  Oilmen 


1  4X, •REFERENCE  PARAMETER  CODE  IS  LESS  THAN  1*)  0120DO 

2620  FORMAK/  4 X, •CALIBRATI ON  FACTOR  IS  0*0  THUS  COMPUTATIONS  MILL  8£  00120  2C 
IMITTED  FOR  THE  FOLLOWING  PARAMETERI  •,A10)  0l20‘»U 

2630  FORMAT (//IX, i3L(lH^) //4X,  •OMIT  THE  REMAINDER  OF  THE  C OMPUT AT lONSO 120 SO 

1  FOR  THIS  TEST  BECAUSE  OF  INPUT  CARO  PROBLEMS.^/  012060 

2  4X,»SEE  ERROR  STATEMENTS  AT  THE  BEGINNING  OF  THE  OUTPUT  FOR  THIS  012100 

3TEST^//  1X,134(1H^)1  012120 

26hC  format (/4X, •NUMBER  OF  FRAMES  IS  >^,I4,*;  OMIT  DATA  FOR  FRAME  NUMBOIZIhO 
lERf^,l4)  Ol2lbO 

2900  F0RMAT(»1  end  OF  JOB*)  0121^0 

2920  FORMAT</i»X,*MEAN  AND  STANDARD  DEVIATION  OF  UNSMOOTHED-SMOOThEO  DIS013200 

IPLACEMENT  DATA  l•/4X, ♦MEAN  ANO  S.  D.  OF  X  =  *  ,  1P2E15.  5/4X  ,  ♦  ME  AN  AND  S.012:^'’0 
20.  OF  Z**,  ZE15.5)  0l22vC 

END  012260 
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SUBROUTINE  CPLT ( T , Y, 2, IP) 

012280 

DIMENSION  X  (3u2)  ,  T  (1)  ,  Y(l)  ,Z  (IJ 

0X2300 

COMMON  JO, JR,  N,NP,I1,I2 ,XX(302>6> ,Z2 (302,6) , ICAl (8) 

012320 

COMMON  /CPlTC/  HEAOL(fi) , date, test, TITLE(8J  ,IRX,DYLP 

012340 

IP= 

1  -  COMPOSITE  PLOT  OF  PARAMETER  VERSUS  SLED  DATA 

012360 

IP= 

2  —  plot  of  angular  vel  And  accel 

012380 

IP= 

3  -  plot  of  VEL  and  ACCEL 

012400 

sxnax  IS  the  maximum  length  of  The  time  scale  in  inches. 

012420 

SXHAX=17.0 

012440 

SXMA  X  =  32. 0 

012460 

ST=10. 0 

012480 

ox=o.a2 

012500 

N1=N^1 

01252C 

N2=N42 

312540 

IF  (IP-2)  300,5,5 

012560 

5 

DO  10  J=1,N 

012580 

10 

X  (  J»  =T  (  J) 

0126CC 

X(N1>=FLOAT(IFIX(xii)*10C.01))*0.01 

012620 

X ( N2  >=OX 

012640 

SX=  FL0AT(IFIX((X1N)-<(N1)  )/CX)^i> 

012660 

IF  (SX  .GT,  SXMA XI  SX=  SXMAX 

012680 

CALL  AXIS(C.O,J.O,12hTIMF  In  SEC.,-12,5x,0.c,X(N1),OX) 

012700 

IF  (IP  .EQ.  2)  -0  Tc  hOO 

012720 

AMX»-i. CEIO 

012740 

Amn*  I.CEIC 

012760 

DO  15  J=1,N 

012780 

AMXaAMAXl ( AHX , r ( J) t 

012800 

AMXsAMAXl (AmX , Z( J) ) 

012820 

AMNa  AMINI ( AMN , Y ( J )  ) 

012040 

AHNaAMiNKAHN,  :(  j)  I 

012660 

15 

CONTINUE 

012690 

IF  ( AMN)  30,20,20 

012900 

20 

AHNaQ, 0 

01292C 

GO  TO  4C 

012940 

3C 

AHNaFLOAT(IFlX(AMN/2.5)-l) *2.5 

012960 

mO 

AMXaFLOAT(IFIX(AMX/2,5i^l)  *2.5 

012980 

IF  (DYLP)  43,43,42 

013000 

42 

oy=dylp 

013020 

GO  TC  9C 

013040 

*•3 

DYYa  (AMX-AHN) /Sy 

013060 

IF  (DYY-2.5J  4n,44,45 

C  ^,30  80 

DY=2.5 

013100 

YMlNaAMN 

013120 

GO  TC  ILO 

01314Q 

^5 

IF  (  CYY-5.  0)  46,  46  8 

013160 

••b 

0Ya5.C 

0131  PC 

GO  TC  9C 

0l32uC 

46 

IF  IOYY-16.0)  50, 50,60 

013220 

5  0 

OYslC. 0 

013240 

GO  TC  9C 

01326C 

60 

IF  (OYr-20.0)  70,70,80 

013280 

7C 

OY=2C.O 

013300 

GO  TC  90 

013320 

SC 

or  =  30.0 

013340 

9P 

YM  iNrPLOAT  (IF  I  X ( AMN/DY )  *  *3  Y 

01336C 

L 


i 


IF  (Y^XN  ,GT.  AhN)  YMlN=Y'1tN-0> 

IF  (YMIN  ,GT,  AMN)  YM1N  =  Y>1IN-:Y 
I  JO  y«Ax=SY*OY  +  vhin 

IF  (flHX  .LE.  YHftx)  GO  TO  102 
ymin-yiin^Oy 

VMAX^Y  ^  AX ♦QY 
1 J2  Y ( Nl) -YMIN 
: ( N1 ) =YMIN 
Y ( N? )  =0  Y 
Z ( N2 ) -CY 

call  axrs(0,3 , J, 0 ,26HVEL  IN  FT/SEC  — 
IF  (YniN)  105,110,110 
135  YO  =A6S ( YMIN/O Yl 

call  PLOT(0.3 , Y0,3) 

call  PLorcsx,  ro,2J 


ACC  IN  G 


call  lIN€(X,7,N,i,iq,3) 

HlxHEADLt JD> 

call  symbol  (0.25,9.5,0.105,^1  ,P,Q,'») 
call  SYMaOL(0. 25, 9.3,0. 105, bHREL  Tj,a.3.b) 
Hl^HfADL ( JP) 

call  SYMaOH0.25,9.1,0.l05,Hl,r.  0,^) 

J=1 

call  SYM90L (0. 5,  5. 6, 0.105,0,0.0,-1) 
call  symbol (0.65 , a.75, 0. 105, 3HVEL ,0.0,3) 

JS  3 

call  symbol (0. 3,  9.55,0.105,0,0.0,-1) 
call  SYM9OL(0.b5,a.5 J, 3.105, 3mmCC,0. 0 , 3) 
l<fO  CALL  SYMBOL  (0. 25, 3.8  ,0.105  ,UMT£ST  ,0  .  0,  *♦) 
call  SYM30L(J. 75, 9. a, 0.105, test, 0.0, 5) 

CALL  NUM9£P(1. 75 , 9.8 ,0.105 ,FL  3AT (NPi  ,j •  J , -1 ) 
call  symbol (2. 05, 9. 8,0.105 ,9hP0INT  FIT, J. 0,9) 

GO  TO  999 

®L0T  the  composite  ^LOT  of  PA9AMETERS  VERSUS  SLEO. 
mOTEI  QAOINATE  AND  ABSCISSA  SCALING  IS  ^IXLO. 

3i&  ZMINaO.C 

XMIN=-1,4-2.2*FL0AT ( IPX) 

XMIN=-1,3 
07*0.4 
DX*0. ^ 

sx=ic.o 

call  ax  is  (0, Q  ,  J. 0 , 14HX  0IS9  IN  F £ -  14 , S X  ,  J .  3  . 
call  Ax:S(0.3,J.0,14hZ  jISP  in  1U,3Y,9(J,C 

call  SYM30L(0.25,9.5  ,0.105  ,i6MOATA  wEc  f'J  CL£'i, 
X  (  Nl )  =xmxn 
X ( N2 ) =C  X 
Z  (  Nl  )  r ZMIN 


J1 33^0 
31 

C  1  ^  u  C 
3 1 1 4  r : 

a : 54 2F 
)i  J4:z 
a  1  54^0 
3  13  4  0:- 
J  1  34  'jC 
3  l3S j3 
1 1  35  GJ 
3135^0 
013560 
J  13580 
0  1  ibOD 


110 

00 

120  I-1,N 

0  1  56  2  2 

IF 

(Yd)  .GT. 

YMAX) 

Y  (  r  )  =  Y  9A  X 

•’136-0 

IF 

tZd)  .GT. 

YHA  X) 

Z  (  I)  =Y  MA  X 

J  1  56  6  C 

1  c 

(Yd)  .LT. 

YMIN) 

Y(  r  )  =  YMI  N 

3  1  56  8  3 

IF 

( Z( I )  . LT. 

YMIN) 

Z{  I)  =  YMI  N 

3  1  »  ^  J  'J 

120 

CONT INUE 

J  1  5  7  3 

1  5C 

call  LiNtlX.Y 

,N,1,1C 

,1) 

315740 

01375D 
J  137 
013800 
013823 
315840 
313860 
3  138  =‘0 
013900 
313923 
013940 
01  3’360 
3  1  3^80 
3  140  0  0 
J  140  20 
3 1 40  ‘•n 
31  ’♦063 
0  1‘.0  r  0 
3  1«»1  3u 
31‘.120 
314140 
3  iHibC 
3  1 4  1  •>  0 
314230 
J  1  -42  2  C 
3 1 42  uO 
3  1  50 

314283 
3  1  -  3  J  'J 
3  1-.  3  ’  J 

j  1  4  )  ? 

3  1  4  ^  3 

11  -4^  T 

J  1  **  *♦  J  3 


ZIN2) 502 

3  14<*20 

XH  AX^SX^OX-^XNIN 

0  1 0 

2^AX=$Y*02i«Z  IlN 

0 144b: 

^0=1D*C 

014480 

00  310  J=l,& 

014530 

IF  K  ICAL  C J*2) )  310 ,310 , 305 

014520 

315 

HI ^HEAOL ( J^2> 

314540 

Yfl  =Yfl-0«  25 

014560 

call  SYH3QL (-l^ZSfYO^O^OS, 0. 105, J ,0*0,-l> 

014580 

CALL  SYMBOL (-1*60  fYO ,0,105, hi, 0*0, 9) 

01463C 

3ia 

COi'^T  INI'S 

014620 

DO  325  J=l,6 

0 1 46  4  0 

IF  (  ICAl( J^2>  )  325,3  25,315 

3 14660 

3\5 

rr^o 

014680 

DO  320  1=11, IZ 

014700 

TT=TI^1 

314720 

<  f  I ; )  =  X '/  ( r ,  j  i 

3 14740 

zau  =z:  tr,  j; 

3 14760 

iX(lI>  ,GT,  XMAx>  X(I7)=XMAX 

014780 

.it,  x^xn>  x(TI>^xnin 

014830 

if  (2(11)  .OT,  ZMAX)  Z(II1=ZNAy 

014820 

If  :2(II)  .LT.  ZrtlN)  Z(II)=ZH1N 

0 14840 

3?0 

CONT INUS 

014860 

CALL  LINE{X,Z,Nf1,-1,J) 

014880 

325 

CONTINUE 

014900 

GO  TO  ILO 

014920 

014940 

SETUP  4M0  plot  ANGULAR  L  ANO  ACC^L. 

014960 

Q14980 

4  jn 

CALL  SCAL£(Y, Sr,N,l> 

015030 

CALL  SCALE(Z,SY,N,1) 

315023 

YMIN3Y (Nil 

015040 

2MtN  =  Z<  Nl) 

015060 

CY5=  Y(N2) 

015080 

OZ=  2(N2) 

015103 

WR IT Et6 ,20  001  YMINfOY, ZMIN,0Z 

015120 

call  AXIS(0. 0,0.0, 22HANGULAR  VEL  —  RAO/SEC, 

22,Sy,9C. , thin, DY) 315140 

call  AXIS(SX,0.0f26HANGULAR  ACC  —  RAO/SEC/SEC 

,-26,SY,9n* ,2HIN,3Z) 015163 

GO  TO  130 

015183 

:>  jq 

call  RLCr(SX^3. J,0.0»-3> 

315200 

R£  TURN 

015220 

2(»U9 

FORMAT  •THE  ABOVE  V£L  ANO  ACCEL  OATA  ARE 

plotted;  vmins*,  31524U 

iFin. 2, •  OY=^,Fft#2  >5X,*  ZMIN=*,F10.2,*  0Z» 

•,Fa.2)  01526C 

END 

315281 

SUBROUTINE  SH < X , Y  ,  YC  ,N , NP)  0153}0 

C  NP  must  8£  AN  ODD  INTEGER  .GE*  3.  0l53?0 

C  COMPUTE  The  coefficients  for  a  quadratic  least  squares  fit  of  -NP*  01534C 
C  POINTS  ANO  compute  THE  FIT  OF  THE  DATA  (NO  DERIVATIVES)  'YC(Ii*,  315360 

dimension  C (3 )  ,X (1) , Y<1) , YC( 1)  Q153»1 

M-(NP-i;/2  0154U0 

NN=N-M  015423 

N1  =NN4-1  015440 

DO  10  1=1, M  015460 

10  fC(I)=0.a  015430 

DO  20  I=N1,N  015500 

20  TC(I)=0.0  31552Q 

MM=M4.1  015540 

DO  100  IsMMiNN  015560 

Nl=r-M  0l55d0 

N2  =  r  YH  015630 

CALL  QLSQ(X,r,Nl,N2,C)  015620 

YC(I)=C(l)*X(r)'X(J)>C(2)*X(I)+Cl3)  1156hQ 

C  YP(I)=2.0*C^l'  •Xtl)4-C(2)  015660 

C  YPPfDsa^O^Cd)  015660 

133  continue  015700 

RETURN  015720 

END  015740 


169 


SU39CUTIN£  DE^?IV1(X,  T,  315760 

-UST  3E  AN  COO  INTECEP  .  G£  .  3.  0157>?0 

:a=i  ^qk  fi^st  oeRii/fliiyE,  315303 

10=2  FOR  ScCONO  DE^lvarivE,  315623 

compute  the  CCEF  *^10 1  ENT  S  for  a  OUAORAflO  LEAST  SOuAkES  FIT  L  F  "vP'  315-®‘*C 

-JOINTS  ANO  COMPUTE  THE  ^IRSJ  OERIVATIvE  315660 

□  ImEnSION  C  (  3  >  ,  <  ( 1)  ,  Y(1)  ,  y=>  (  1)  3156«0 

--<NP^l)/7  015900 

015923 

nn=N-<  0i59h0 

n1-nn^i  015960 

00  10  I=l»<  015960 

10  YP(i)--a.o  oibwoo 

CO  2 'J  I=ni,n  0160  20 

20rP(I)=0.3  g  160  **0 

316060 

00  100  I=MMtNN  016060 

016130 

N2=r»N  016123 

CAuL  CLSQIX,Y,N1,N2,C)  OIoIh*' 

YPa}=2.0*Ca)*X<I)^Cf2)  016160 

YC(i)=C{i)*x(n*x(i)H:(?)*x(i)+c(j)  a  16 1*^3 

'^P'’(r)=2.0*C(  1)  3162  30 

10  0  C'ONT  :  NtJE  J  2  0 

return  Q162U0 


316250 


sjgwouTiNe  s X » Y,  Ni , n2 , 

01  r-E  SSI  ON  Kll)  ,Y(1)  ,:(!> 

This  suhroutine  computes  the  iuadratic  ..hast  souare  Cut  -  - : . !  ent  s 

'C<3)'  FOR  NP  DATA  POINTS  <  SP  iUST  9E  AN  000  INTEGER  *:>£.  3). 

The  jata  need  not  9e  eauALLT  spaced. 

Cll) •(x**2I^C(2)*x^C  (3)3X 
C(  1)  ’x  +  cie)  =Y 

SUBSTITUTE  ;^p  =  x«f^F,  hhERE  Ff  IS  X(<Nl»N2)/2) 

Then  C(3)=C(3)^Ctl)*FF*FF-C(2)*FF 
Ct2) =C(2)-2.3*C  (1)  •FF 
C(  IJ  ( 1) 

F(A1,A2, A3, 31,92, 33, 01,02,03) = A 1 ♦ < 3 2^0 3- 6  3 *02 )  ♦ A2»  <  B 3 *0  1  -  -  l  * S  ’  » 
!•( 91*C2-92*Cl  ) 

«^N=FL  J4T  (  N2-N1  ♦!  ; 

NN=  (  N1  i-Na  )  /  2 
FF  =  X  <  NN> 

31  =  0 
Z2=0 
33=0 
34  =  0 
25=0 
Z6  =  0 
37=1 

10  DO  2C  I=N1,N2 

x2=x  a ) -ff 
XI  =  X  2*  X  2 
Zi=2l^X2 
22=22^X1 
23  =  23«‘X1*X2 
Z4=Z4^X1*X1 
25=25*r ( H 
:6=26^x2*Y(I) 

37=37^x1*T<I) 

20  CONTINUE 

DEN=F(Z4,Z3,32,23,Z2,31,22,:i,FN) 

C(l) =F <27, 26, 25, 23, 32, 21, 32, Z1,Fn>/ DEN 
C ( 2) =F ( 24, 23 , 22, 27,26, 25,22, 21,FN) /OEM 
C  C  3J  =F (24,2  3, 22, 23,2  2,  21,  2  7,  26, 35 »/ DEN 
C( 3) =C ( 3) (1 ) •FF*FF-C ( 2) •FF 
=C(2)*-2.0*D{1>  •FF 
RETURN 
END 


J  1  S 

c :  fc  n  L- 

: :b3  4 : 
j  1  b  j  . 
0  1  b  .  •■  c 

1  1  D  J  " 
J  I  b  H  J 
1 

0  IbHbO 

0  1  b  *4  0 

g  1  b  5  J  j 
OlbSDC 
5  0  1  b  H  -4  .. 
3 :  b*^  G 
D:bE  -  : 
I  1  O  O  J  j 

j  ibfe  jn 
G  1  t>t 
0  IbF  ^  ? 
3 Ibb  -0 
J lb7 j  3 
aibZ^D 
3 16/ 
Tlb/bO 
J lb7  3G 
016^0  '' 
0 1  c  a  2  0 

0  1  b  •  U  n 

31bebC 
3  1  b6  “5  Q 
3  169  J  G 
a  1 6  :  3 

0  169^0 
3  l6-b  : 
3  169*0 
3 1 '0  JO 
J 1^033 
01/040 
31/060 
3  170  *0 
0  i/lOC 
0  17120 
3  171^0 


I 


KOTA  re  (n,  ji ,  ipr  j  o:7ibu 

CCMMON  NN,  NPjNCl,  NC2  I  XX  (30^  f  b)  ,  (  3U2  »  6)  ,  ICALlo), 

1  IFR<302>fX(302,3),Zt302,d),ID<l2),:Rtl2) , ACC (302J,  01/2QQ 

2ACnC(3C2),  cal (81, XO  1302), 20(302)  J17220 

this  SjeROUTIl.t  TRANSLATES,  ROTATES,  A  NO  CALX:3RATES  T  h£  0N-90AR3  017240 

CANtPA  DATA  STORED  IN  THE  •>'  AnD  *2*  ARRAYS.  ALL  DATA  ARE  0l72oC 

translated  to  a  cocroinate  system  through  The  Sled  range  rlference  0272^0 

^OlNf  (FIRST  X,2  PAIR  FDR  EACH  TIME).  017340 

AXIS  IS  THEN  rotated  SO  THE  ANGLE  3tTWEEN  THE  SlED  RAnGE  REFERENCE  Q17320 
AND  The  sled  reference  (SECOND  X,2  PAIR  FOR  EACH  TIME)  IS  ThE  SANE  31^340 
FOR  ALL  TIME  STATIONS  (SAME  AS  AT  ilME  u).  017360 

PIK:)T  POINT  15  RANGE  REFERENCE  ON  CHE  SLED.  317380 

SECONO  PoInT  is  the  sled  REFERENCE  POINT.  017400 

PI2=6. 283185308  01/423 

1=1  017440 

XR  =  <  (1,1)  3l74ba 

ZR=2(I,1)  017480 

IF  ;IPR)  10,10,15  01 75  OP 

lU  hR1TE(6,2580)  UR<I)  ,(X(I,  J)  ,2(1,  J)  ,J=1,8)  017523 

SUBTRACT  initial  RANGE  VALUE  FROM  SLED  REFERENCE  AND  GErERMINE  0175^*0 

REFERENCE  ANGLE.  017560 

15  X1=X(I»2>-XR  317580 

21=2(1, 2)-ZP  317600 

X (  1 , 2)  =  X ( 1 ,2J  •CAL (  2)  01762U 

: t  I, 2) =Z ( I, 2) *041  ( 2)  01764  0 

CD  2  0  J  =  01,8  0176-.0 

Y<  I,  J/  =  X{I,J)  •CAL(J)  0176  80 

2C  :  (  I, J)  =  Z (I , J»  ’CAL ( Jl  017730 

IS  THE  reference  ANGLE  SETWEcN  THE  TWO  RfcFcRENCE  POINTS  DN  TmE  01772Q 
'jLEO  fop  The  FIRST  TIME  STATION  (RANGE  AND  SLED  REFERENCE  POINTS)  :  5177^0 

ALL  DATA  FOR  1=2  TO  N  ARE  ROTATED  TO  MAKE  ThE  ANGLE  3ETHEEN  THE  T MO  017760 
JOINTS  THE  same*  Oi77oO 

J5  ThR=ATAN2(Z1, XI)  017S0Q 

IF  (TmR  *LT.  0.0)  rHR=THft+PI2  017820 

CO  50  1=2, N  017840 

Hi  =  X (  1 , 1)  0  17860 

h2=2(I,1>  017883 

transiate  sled  reference  data  to  coordinate  SYSTEM  through  Sled  RANoeoi/qoo 

RcFEREN'.E  ANO  CETERMINE  THE  ANGLE  BETWEEN  SLED  pANGE  REFERENCE  AND  317920 
The  SlEC  reference  points  (FOR  I-TH  TIME  STATION).  01/940 


Xl  =  x  (I,£)-H1 
21=2(1, 2)-h2 
THl=ArAN2(2l, XI) 
IF  iHI  *1.7.  0.3) 


THI  -  THI  -  PI  2 


ALL  DATA  ARE  ROTATED  8Y  ANGLE  THaTHI-THR, 
Th»ThI- THR 
CS  *COS  (TM) 

SN=S IN ( Th) 

ROTATE  SLEC  REFERENCE  7  NO  TRANSLATE  DACK  ‘ 
<3  (2 ) =x 1*CS>21*CN*YP 
2D(2)=-xi*SN^7l*CS*.R 
<(I.2)=XD(2^*CAu(2) 

2(I,Z)=23(2)*CAl i2) 

DO  HU  J=  >1  , 8 

TRAnSlATc  3T  1  iNO  H2  ANT  ROTATE  BY  ANG^t 


017960 

017980 

318000 

018020 

018040 

318060 

318030 

31310C 

T  ITIAl  CJCRDINATE  STSTC^OlSl?: 

OifilHO 
0 18160 
318180 
018230 
018220 

'Tw»  ’’hCN  TPAnslATC  SAC«^  01824C 


■BT-’, 
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» 

I 


fO  INITUL  COOROINATE  SVSTFf^, 

Al  =  X  .1  :  -Ml 

Zi^l ll t J)-H2 
XC(J)=X1*CS+^1*SN^XR 
ZD  <  J)  --x^»Sh>23*":s  +  ZR 
X  '  :  ,  j)  =  XD  (J)  *  C  AL  (  J) 

•♦0  /  f  I,  J)=ZJ(J}  •CAl  (  J) 

X  *  1 ,  1)  -XR 
Zil, 1) 

IF  (IPR)  -r5,‘*5,:?0 

w&  ITf  16 , 2580)  IF  R  (  I )  ,  X  lI  .  i  )  ,  2  U  ,  \  ,  <<0  (  j  )  ZC  t  J  )  ,  J  =  2  A) 
5Q  CONTINUE 

25  ^0  FORrlA  r  (  1  X  ,  14 , 2  X  ,  3  '  F9  .  u  ,  F  /  ,  iy  ) 

RZ TURN 
END 


J  :  2  -  . 

0 :  i  r' . 

0  1  s 

*)  1  V  -  . 
0 : 3 

'J  X  3  J  "  ^ 
n  1 3  4  j  j 

0  1  ^  J 

2  l  o  -  •*  Vi 

J 1  ®  4  o  :■ 

-•: 

''  i  a  5  j  n 
J  1  55  -  ■] 


:  1  -  c 

0 

1  13^’  -  a 

3 : -e  T : 
:  1 3^- :: 
3  l  5D 
0  1 

Tlib^G 
:i?7  jt 
3ic7:: 
3137^: 

3137  e  0 
3  1  3  3  3  Q 
313820 
313^^3 
3 :33b3 
0133  3  0 
313900 
313920 
3 1 39u0 


1 

:! 

|i 


1  M  >  <  I 

1  .  )  , .  ;  ;  > 


t  .  J 


9  C  1  -  Z^  1  1) 

3  V  X  -  s  -  t  '  «  "  '  N  ) 
i/Z  =  S*^2/^L-Ar 
C^<-CH7iJ,0 

:o  ICO  :  =  i , N 

<MX::S^X4-(  t  iZ  '  -  AVJf)  **2 
133  ShZ  -  SiZ  ♦>  (  2  C  J  -  Ay  :3  ♦♦  2 

M  t  =  i  T  (  c  ^  y  /  c  -  '  N  - 1  )  ) 

«>->  ;  r  F.  (  b  .  J  U  U  0  i  A  V  A  .  F  V  ,  :  y  ; 


rooo 

1  ^F'^c^ENOl 

:  •h£an 

F  T  'J  W  N 

E  N  9 


>4^.  Av  ANT  FIA^JA^'n  LtV:AT:_s  A- 


]  A  r  A 


:  -  C.E  ^  I  t  •‘"F  A  N 

'  ^  :  =•  .  2L  1  p,  9  ) 


I 


SU9«0UTINE  MEAN2  (  N1  ,N2 , 01  ,  DC  ,  XC  ,Z0,  SMX2,SMZ,  SM22)  Q  16960 

DIMENSION  01(1)  ,OC(l)  ,  XQ(l>,  ZOd*  Q15960 

COMPUTE  AVERAGE  ANQ  S.O.  OF  UNSMOOTHEQ  MXNUS  SMOOTHED  DATA:  QlSOOO 

FNN=FL0AT(N2-N1^1)  J19020 

SMX=SHX2»SM2aSMZ2»0. 0  Q19Q‘*0 

DO  100  I=N1,N2  019060 

OIFX=OI (I)-XO(I)  019030 

OIFZ=OC (I)-ZD(I)  019130 

SMX=SMX^OIFX  019120 

SMZ=SMz^oiFz  oigmo 

SMX2sSMX2^0IFX**2  019160 

130  SM22=SMZ2^0IFZ*»2  319190 

SHX=SMX/FNN  019200 

SMZ^SMZ/FNN  319223 

SHX2=SQRT  C (SHX2-SMX*SMX*FNN) /(FNn-1.0)  )  3192  4  0 

SHZ2=SQRr ( (SMZ2-SMZ*SMZ*FNN) / (FNN-1.0) )  019260 

return  019290 

end  319300 


APPENDIX  B 


PKOGRAJ-I  WERE 


P»?  J  AH  HSRL  (  I  ^PUT  I.IT  PUT  ,  TAPE^  =  INP'J  r  .  T  APe  b^GU  T  "U  T  ,  r  APE  7  ) 

:OHfiUN  X(150,9)  ,T(l5a,9)  ,E(150t9)  ,Xx(i5Q,9),rY  (l5C,9»  ,ZZ(l50,^) 

l,riTtfO;,r{150N  /P£S<150}  ,4RES(l50>,JfAa50),YAfl50)  , 

2  Z A ( ibO ) , PHN< 12) , FHX ( 12) 

QI ^ENSI CN  OAT  a ( 10  24)  ,F  HNC (3,2)|FMXC(3,2)|IS(9»  ,IE(9) 

GA  -4  ENC/5H99  9  99/ ,NP/ll/,CCN/1.0£lfl/,FCT/0.Z/,FCTC/C.  fl5/, lNC/4/ 
1,  TCQN/i. OE-05/, NMAx/150/ 
call  PLCTS(0ATA, 1024,7) 
call  plot (0. 0  f-0. 5,- 3) 

CA^i  PLCKO.O  ,0.7, -3) 
call  FACTOR(FCT) 

CALL  OATE(TOOAr) 
call  TIME(CL0C<) 

NS=( NP- 1) 72 

10  PF40(5,100u)  TEST, TCOMP, OT 
IF  (EOF (5) )  999,23 
20  PEAO(5,ii0O)  title 

IF  (OT  .LT.  rCON)  or=o.oo2 
nst  =  o 

OG  25  I=1,NMAX 
T(  I)  =FLOAr  ll-l)  ^OT 

IF  ( A0S (TCCMP-T( I) I  .lT.  ICON)  NST=I 
25  CONTINUE 

IF  (NST  .LT.  1)  )(RITE(6,3300) 

lERR^O 

00  30  <=1,5 

J2=2*< 

J1=J2-1 

IF  IK  .EO.  5)  J2=J1 

1  =  1 

R£AO(5,1200>  TaM,(XtI,J),Y(I,J),Z<I,J),J*Jl»J2) 

CO  30  I=1,N^*AX 

IF  ( A0S(T(I)-TOM)  .lT.  TCON)  CC  to  35 
30  continue 

I3<= ( J1 frl) /2 

IF  (IER9  .EQ.  H)  WRTTE(b,3050J 
WRITE (6, 30 10)  TEST  ,I OK, TDM 
IERR*1 
GO  TO  60 
35  I3(J1>=I 
IS  ( J2J  =I 

IF  (I  .£3.  IJ  GO  TO  50 
00  40  J=J1,J2 
X( I, J) =X(i, J) 

Y ( I, J) =Y (1, j» 

40  Z(I, J)=Z(1,J) 

5fl 

Xr  (I  .GT.  MHAX)  GO  TO  59 

READ (5, 1200)  TOM,  (X(I,J)  ,Y(I,J)  ,Z(I,J)  ,J*J1,J2) 

IF  (TOM  .GT.  990.0)  GO  TO  70 

IF  (  A8S  (  TDM-T  (  I)  )  .lT.  TCQN)  GC  TQ  50 

IF  (TERR  .EQ.  3)  WRI TE ( 6 , 3 05 0 ) 

IERR=IERR^1 
ID<= ( Jl*l) 72 

WRITE  (6, 3000)  TEST,I3K,T(I),TOM 


0  0  3  1  ^  ■ 
u  3  J  1  2  0 

0  c  0 1  •*  r 

3  OOloO 
030133 

0r0200 

00322G 

000240 
000263 
0  0C2  30 
0  0Q303 
00022J 
000340 
0C3T6Q 
03033^ 
0  3  u  H  w  0 
300^23 
J  V  3**  '*  C 
0  2 

0004 
0  005  JO 
000520 
0  3  0  5  0 
0 J0563 
0  0  0  5-10 

onotoQ 

000620 

J 

0C0660 
OGOo^O 
0CO7  30 
000720 
3  G  0  7  •,  0 
0  007*-  ^ 
3  2  3  7  - 
JuO'^0: 

C  G3H  L  : 
0  0  0  -  • 
0  uQ  ^5L 
a  30H 
0  U  0  ^  3  C 
0LO92Q 
3  0  09  *♦  3 
0  C  0  9  6  Ij 
000940 
OOlC  )  J 

onio'^c 

0  J10'»J 
3  0106 
OCIC  3 
331100 
J  011  20 
0  0  1 1  •.  3 
3  0  1 1  3 

0911  *0 


1.  7 


i 


GO  TO  60 

55  IF  (lERR  .EQ.  0)  WRI TE ( 6 » 3 05 0 ) 

I0K= ( Jl^l) /2 
WRITE  (6,3060)  NMAX,I0K 
60  REAO(5,1300)  C< 

IF  ( CK  . Ea.  END)  GO  TO  70 
GO  TO  6Q 
70 

IE  C J2)^I-1 
30  CONTINUE 

IF  (lERR)  100,100,10 
130  mAxT^HAXO (IE(1),IE(3),IE(5),IE(7) 

00  200  J=l,9 
N=IE (J)-IS ( J> ♦! 

Ni  =  rs<  j)  <*NS 
N2=IE( J)-NS 
NSsNl'fNE 
N4=N2-NS 
n5=N3+NS 
n6=N4-nS 
00  ten  1=1,12 
fhn(  i;  =con 

160  FHX(I)=*CON 

r=is  ( j» 

call  SM(T,X(I  ,J)  ,XX(I,J>  ,N,NP) 
call  SH(T,T<I  ,  J)  ,  Yf  (  I,  J)  ,N  ,NP) 

CALL  SM(T,2(I,JJ  ,ZZ(I, J) ,N,NP) 
COf^PUTE  VELOCITY  COMPONENTS! 

call  OEPIVl  (T  ,  XX  (  r  ,J>  ,  X  (I  ,  JJ  ,N,nP,1  j 
CALL  DERI  VI (T, ft (I,J) ,Y(I, J)  ,N,NP,1) 
CALL  OERIVKT  ,  ZZ  (  r  ,  J)  ,  2(  I ,  J)  ,N,NP,i; 
00  17Q  II=N3,N4 
X( II , J) =X (II , J)/12.0 
Y( II , J>  =Y ( II, J)/12.0 
170  Z(II,J) =Z(II, J)/t2.0 
COMPUTE  ACCELERATION  COMPONENTS! 

call  0ERIV1(T,X(I,J)  ,XA(I)  ,N,NP,2) 
CALL  OERIVKTjYd,  J)  ,TAa),N,NP,2) 
CALL  OERIvKT  ,Z(I,  J)  ,ZA(I)  ,N,NP,2) 


03120Q 
00122D 
0012^,3 
001260 
Q0123Q 
001300 
001320 
3  3134Q 
0C136Q 
031330 
00140Q 

I£(9)»-NS  0ul420 

3Q144Q 
301460 
301430 
001530 
001520 

0015*40 

001560 
0015^0 
001600 
001623 
001640 
0  ul 66  0 
0316d{J 
001730 
0(31720 
001740 
001760 
001760 
001803 
001820 
0C1840 
001860 
001800 
301900 
001920 
001940 
001960 
001980 
3Q200Q 
002023 
002040 
002060 
002080 
002130 
002120 
302140 
002160 
002160 
002200 
00222C 
00224C 
G02260 
002260 


LlNe=6Q 

CO  193  I=N1,N2 
IF  (LlNE-50>  175,172,172 
172  WRITE (6, 2500)  TODAY, CLOCK, TE ST , T I TL E , NP 
WRITE(6 ,2505)  J 
WRrTE(6,2510J 
LiNEsfl 

175  FMN( 1)*AHIM1 ( FMN( 1) , XX ( I , J ) ) 

Fmn( 2) =AMIN1( FHN<  2)  , YY (I , J) ) 
rMN(3)=AMlNl(F‘1N(3),Z2(I,J)) 
FMX(1)=AMAX1(FMX(1) ,XX(I,J)) 
F>lX(2»=ArtAXl(FMX(2),TY(I,J)) 

FnX  (  3)  =AMAX1  (  F  6X  (  3)  ,  ZZ  ( I  ,  J  )) 

IF  (I  .LT.  N3  .OR.  I  .GT.  N4 )  GO  TO  173 
COMPUTE  RESULTANT  LINEAR  VEl.OCITYi 

VRES  (1)  =SQRT  (X(I, J)*  *2  ♦Yd, J)**2^  2(1, J>**  2) 


rMN(5)  =  anlNl(FMN(5),X(I,J)  ) 

FHN(6) =AMrNl(r^N<6J , r<i, J) ) 

FMN(7)  =  ArtINl(FMN(7) , Z(I, J)  ) 

FMNt  8)  =  AMlNl(FHN(d)  ,  VRESCD) 

FHX(5)  =  AMAX1<FMX<5) ,X(I,J)  ) 

FMX(6)=AMAXltFHX (6)  , Y(I,J)  ) 

FHX(7)=AMAX1(F1X(7I ,Z(I,J)  ) 

FMX(  3)  sAMAXK  FMX<  8)  ,  VR£S(  I)  ) 

IF  (I  .LT.  N5  .OR.  I  .GT.  M6 )  GO  TO  180 
C  COMPUTE  resultant  LINEAR  ACCELERATION! 

ARES  a»  =  SaRT ( XA( I) •♦2+TA< I>**2»ZA (I >  **2) 
FMN(9)=ANlNl(FfiN(9)  ,  XA  Cl)  ) 

F'^NCIO)  =  an  INI  (FMN(IO)  ,  TACI) ) 

FMN(ll)  =AMIN1  (FMNdl)  ,  ZA(I)  ) 

FNN(12)=AMlNl(FMNC12)f ares  (I)  ) 

FMX (9)=ANAXl(FNX(g) , XA ( I) ) 

FHX(IO) =ANAX1 CFMXCIO) , YA(I) ) 

FHX(ll)=ANAXl(FMX(ll),ZA(rj) 

FMXC 12) =AMAX1 (FHX (12) t ARES  Cl )  ) 

GO  TO  IflS 

178  WRITE  C6, 2600)  I »  T ( I)  , XX  C I ,  J)  ,  YT  < I  ,  J  )  , ZZ  ( I  >  J> 

GO  TO  187 

130  WRITE  C  6,2600)  I , T  ( I)  ,X X  C I ,  J)  ,  YY  C I ,  J )  ,  ZZ  C I  ,  J)  ,  X  C I ,  J )  ,  Y <  I  ,  J  ) 
1,Z(I,J) ,YRES(I) 

GO  TO  187 

135  WRITE  (6, 2600)  I ,  T  ( I)  ,X  X  ( 1 ,  J)  ,  YY  (I ,  J )  ,  ZZ  ( I ,  J)  ,  X  C I ,  J )  , 

1  YCI,J),Z(I,J)  ,\/RES{r)  ,XA  (  I)  ,  YACI)  ,  ZACri  ,  ARESCI) 

137  LINE=LIN£4-1 

190  continue 

write  (6, 2700)  (FrtN(I)  ,1  =  1,3)  ,  CFMNC)  ,1  =  5,12) 

WRITE  (6, 2750)  (FNX  C I ) ,  1  =  1 , 3)  ,  ( FMX  ( I )  ,  I  =5 , 12) 
call  PLTC J,N1,N2,N3,NU,N5,N6,MAXT ,TEST) 

IF  CJ  .LT.  7  .OR.  J  .GT.  8)  GO  TO  200 
JJ=J-6 

FMNCC1,JJ)=FHN(1) 

FMXC (1,JJ)=FMX(1) 

FMNC(2, JJ)=FMN(2) 

FMXC(2, JJ)«FNX(2) 

FMNC  (3, JJ) =FMN (3) 

FMXC (3, JJ) =FMX  C3) 

230  CONTINUE 

N2=MIN0  CIE  C7)  ,  Ic  C  8) )-N$ 

CALL  FACTORCFCTC) 

N1=)1AX0  CIS17)  ,ISC8)  )  ♦NS 
IF  (N1  ,GT.  NST)  NST=N1 
call  PCCFMNC, FMXC, NST, N2, INC, TEST) 
call  pACTORCFCT) 

go  to  10 

999  call  PLOTE(NA) 

WRITE(6, 3200)  NA 
STOP  -END  OF  JOS" 

10)0  FORMATCA10,2ria.O) 

1130  FORHATCSAIO) 

1230  FORNAr(F5.0,6F6.a) 

1330  F0RMATCA5) 


3  32300 
302320 
3023^*0 
002363 
C  0238. 
«i024aQ 
002420 
0324^0 
0^2463 
302480 
002500 
0C2523 
002540 
302560 
002530 
3Q26QQ 
002620 
002640 
002660 
002630 
032730 
002723 
002740 
002763 
002731 
0  0  2  9  3  0 
002821 
002840 
002860 
0Q2980 
002900 
002920 
0Q2940 
302960 
0Q298O 
0  0  3000 
303020 
003040 
003060 
003080 
0Q313Q 
003120 
CQJ140 
003160 
003190 
003200 
003220 
0  0  32‘.0 
0C326D 
003290 
003300 
303320 
0  03340 
0u3260 
003380 


179 


I 


cS^Q  FORMAT  (lHl,*OATtl  •  ,  Al  U  ,  12  X,  •  Tlwe  I  •  ,  AlO  ,  1 2X  ,  ♦  TEST  NUr-gd^i  •,  303^00 

1  AlO//  lX,aA10,5X»I2,*  POINT  QUADRATIC  FIT*) 

2535  FOPIATC/*  DATA  FOR  VARIABLE  COCE  NUMBER  *,12)  301**h0 

2510  FORMAK/*  FRAM^  TIME*,  5  X  ,  •  DISPL  ACEMENT  { INCHE  S )  *  » l‘*X  ,  •  V  EL  OCX  T  Y 

IFEET/SEC) ♦,16X, •ACCELERATION  (FEET/SEC  SQ) */  OJT^rC 

2*  NO,  (SEC)  X*,0X,*Y*,8X,*Z*,4X,2(5X,*X*,gX,*Y*,  0035^0 

39X, *2*, 5X, •resultant*) )  303523 

26  JO  FORMAT  (  IX  ,  I4 ,  F  7.  3 , 3F  9,  3  ,  fiF  10 , 3)  0  0  35^.0 

2730  FORMAK*  MINIMUM  •  ,  3  X  ,  3Fg  .  3,  8  Fl  Q  .  3)  0J35sr 

2750  FORMAT(*  MAXIMUM  *  ,  3  X ,  3F9*  3 ,  8  FI  0 . 3  )  a''35'\0 

30J0  FORMAK//*  TESTl  •  ,  A 10 , 5X ,  *7 IME  ERROR  IN  0ECK*,I3,*  —  T(I)c  *,  0036J0 

1  F7,3,*  AND  INCORRECT  TIME  *  •,F7.3//*  READ  THROUGH  REMAINING  DECK3v.J62a 

2S  IN  THIS  TEST  AND  PROCEED  TO  THE  NEXT  TEST,*)  3036^0 

3010  F0RHAT<//*  TESTl  *  ,  A 10  ,2X  ,  *1 1  ME  ERROR  IN  0£CK*,I3,*  —FIRST  TI^e  =  ja36bO 
1*,F7.3/*  FIRST  TIME  DOESN'T  MATCH  TIME  DATA  COMPUTED  FROM  GIVEN  OT003650 
2.*  /  •  SKIP  THIS  TEST.*)  003730 

3050  FORMAT(lHl)  303220 

3060  FORMAK//*  INDEX  OF  INPUT  DATA  POINTS  IS  GREATER  THAN  OR  EQUAL  Tc  J0)7u: 
1*,I3,*  FOR  0EC<*,I3/*  SOME  DATA  POINTS  MAY  HAVE  SEEN  LOST,*/  33376^ 

2*  INDEX  OF  The  FIRST  DATA  POINT  a  l*T/OT,  WHERE  T  IS  ThE  TIME  JF  toqi/^O 
3HE  FIRST  DATA  POINT.*)  injejO 

3230  FORMAT(*l  END  OF  J08;  NUMBER  OF  BLOCK  AOORESSES=  *,I3)  003^20 

3300  F0RMAT(*1T1HE  OF  FIRST  POINT  IN  COMPOSITE  PLOT  (TCOMP)  DOESN'T  MaruJ3840 
ICH  ANY  standard  TIME  COMPUTED  FROM  THE  GIVEN  OT.*//  003860 

2  •  COMPOSITE  PLOT  MILL  CONTAIN  ALL  AVAILABLE  POINTS.*)  003880 

END  003900 


I 


SUBROUTINE  SH ( X, Y , YC f N , NP)  003920 

NP  must  3E  an  odd  integer  •r,F.  i,  003940 

COMPUTE  the  coefficients  FOR  A  OUAOPATIC  LEAST  SQUARES  FIT  CF  •NP*  003960 
POINTS  ANO  COMPUTE  THE  FIT  OF  THE  DATA  (NO  DERIVATIVES;  'YC<I)*,  (3g39'!0 

OIHENSION  C(3)  ,X(1) , Y(l)  ,YC(1)  J04030 

M= (NP-t) fZ  004020 

NN=N-h  004040 

N1 =NN^i  004060 

DO  10  I=lfM  004080 

10  VC(I)=0.0  004130 

DO  20  I=N1,N  004120 

20  tCCI)=0*J  004140 

HM=H^1  004160 

DO  ICO  I=MM,NN  004180 

004200 

004220 

call  QLSatXtT ,N1,N2,C)  004240 

YC  (I)  =G  (1)  •X(  I)*X  ( I)  (2)  •  X(  I)  ♦C<  3)  0  04260 

YP  (I)  =2.  0*C(1)  •XJ  11 +0(2)  0*i4280 

YPP( I ) =2. 0»C ( 1)  004300 

1  JO  CONTINUE  J04320 

RETURN  004340 

END  004360 


SUBROUTINE  OERtVKX,  Y ,  YP  ,  N  ,N  P  ,  I  D) 

NP  MUST  BE  An  000  INTEGER  .GE.  3. 

10=1  FOR  FIRST  J£RIi/ATI/E. 

10=2  FOR  SECOND  DERIVATIVE. 

COMPUTE  THE  COEFFICIENTS  FOR  A  QUADRATIC  LEAST  SQUARCS  FIT  OF  -NP 
POINTS  and  compute  The  first  DERIVATIVE  •YP(I)*. 

DIMENSION  C(3)  ,X(1)  ,  Y(  1)  ,YP(  1) 

M=(NP-1) /2 
<=M^M»I D 
nn=n-< 

N1=NN^1 
DO  ID  1=1, K 
10  YP(I?=C.0 
00  20  I=N1,N 
20  yP(I)=0.3 

MM=<>1 

DO  IDO  I=MM.NN 

N1=I-M 

N2=I ♦M 

CALL  QLSQ(X,Y,N1,N2,C) 

YP(I)=2.a*C(l) ♦xc I) ♦cc  2) 

YC(I)=C(1)*X(I)*X(I)»C(2J*X(I)^C<3) 

YPP(I)32,0*C(1> 

IJO  continue 

RETURN 

ENO 


004360 
004430 
0&4420 
a  c  V  0 
a  Q  u  ^  ^  Q 
004460 
004500 
304520 
004540 
104560 
004580 
0046QQ 
004620 
004640 
004660 
004680 
004700 
004720 
004740 
004760 
004780 
0048Q0 
004820 
004840 
004860 
004830 
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o 


u  0490  0 
2 0492Q 
JO 49 40 
004960 
J049ft0 
005QQQ 
005020 
0050hO 
0  05060 
0050^0 
005100 
305120 
005140 

P( Al,A2,A3,Bl,82,a3fCl,C2»C3)=ftl*(32*C3*a3*C2) »A2»(a3*Cl-31*C3)*A3005l60 


l*(ai*C2-92*Cl)  0u5l?0 

FN=FL0AT(N2-N1+1)  005200 

NN3<N14N2)/2  OOapTO 

pP=X(NN)  005240 

21=0  005260 

22*0  035230 

23*0  005300 

24=0  005320 

25*0  305340 

26*0  005360 

27=0  005330 

10  00  20  I=NlvN2  005400 

X2*X(I)-FF  305420 

X1=X2*X2  005440 

21=21^X2  005460 

22*224X1  005480 

23*234Xl*X2  0y550Q 

24s74^X14X1  (3  05520 

25*2547(1)  Ou554Q 

26*264X2*7(1)  005560 

27=274X1*7(1)  005580 

20  CONTINUE  0056QD 

0EN«F(Z4,Z3,22,Z3,Z2#21,Z2,21*FN)  005620 

C(l)  =F(Z7,Z6,25,Z3,Z2,  21 ,22,  Zl,FN)  /OEN  0  0  56-*0 

C ( 2) *F( 24,23, 22, 27,26, 25,22, 21, FN) / OEN  005660 

C(3) =f( 24,23,22,23,22, 21,27, 26, 25) /OEN  005630 

C (3) =C(3>  4C(1 ) •FF*FF-C (2) *FF  0  057  00 

C(2) =C(2)-2.a*C<l) •FF  005720 

RETURN  0i5740 

ENO  005760 


SUBROUTINE  aLSa(X,T,Nl,N2,C) 

DIMENSION  X(l) ,7(1) ,C(1) 

this  subroutine  COMPUTES  THE  (QUADRATIC  LEAST  SQUARE  COEFFICIENTS 
C  'C(3)*  FOR  NP  OATA  POINTS  (NP  MUST  BE  AN  000  INTEGER  .G£,  3), 

C  THE  OATA  NEED  NOT  BE  EQUALL7  SPACED, 

C  C(l) *(X**2)4C(2) ♦X4C(3) =7 

C  C< 1) *X4C (2) =7 

C  SUBSTITUTE  XP*X*FF,  WHERE  FF  IS  X((N14N2)/2) 
c  Then  c( 3) =C(3) 4C(1) •ff*ff-C(2)*ff 

C  C(2)=C(2)-2,a*C(l)*FF 

C  C(1)*C(1) 

c 
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r  N  =  < 
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AMN  =  FLOr.  T  (  IFT  X  (  FPN/IOC  •  0  )  )  *1  30  .  3  USc  '  3 

IF  <FPN  ,LT.  0«0>  AMN=AMN- nO.C  006-30 

call  ax  I s  ( n ,  0  1 0.  n  ,  cce!.  t  r  i /sf >  ,  i  h  . ^ ^  ^ r  o  ,  •  •  ^ i  o 

NP  =  N6-N«^  +  l 

Q  a 64 6  0 

DO  100  i=:i,Nr 

l  10  T T  a )  =T  { I ♦NF)  3  o;c }  3 

T  (  N  p  f  1  )  -  J  .  n  3  0  ?  ' 

IT  (Nr*e  )  rrjl  )  O.’O  -  c 

C  A  L  L  PI  {  T  T  ,  *  A  (  45  )  ,  NF  ,  4  ,  A  M.N  ,  0  A  ,  s  T  )  3  0/060 

call  PL  {  T  T  ,  YA  (  N5)  t  NP  ,4  ,  AMN  ,  jA  ,  ST  )  OO/O'^O 

CALL  PL  n T >ZA ( NK)  ,nP ,8 , AMN  ,0  A  ,  5Y)  OQ/lGD 

call  PI.  (  r /  ,  APFS(  M5)  ,  NfF  ,  ?  ,  A ''4  ,  o/' ,  S 3  071.^0 

C A  L L  PL  p  r  ( s  r *  .  (j ,  ■■  1 0  .  n ,  -  7 '  )  3  /  r  ^  o 

RC  0  3  71 »  r 

P  N  0  ^  '  ■ 
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SUBROUTINE  PL  I T, T , NP,NSTH,  TMN, CY , ST )  3J723Q 

CIMENSION  T(i;,Y(l>  0C7220 

CATA  lNr/20/  0072*40 

N1=NP4.i  0  07260 

N2=NP<-2  007230 

YlNDsr'IN  007300 

y(N2)=0Y  007320 

SS=SY  Ju7340 

IP  (OY-iaO.)  10,20,20  007360 

10  5S=SS*'l.  007330 

00  TO  3C  007400 

20  SS=SSi'045  007420 

IQ  y^X=Y4N+SS^0Y  0074^0 

00  60  1=1, NP  007460 

IF  (TCIJ  ,sr.  YHXi  rdl^YMX  007430 

60  CONTINUE  007500 

call  line < r , y, NP, 1,INT ,NSTK)  00/52D 

WRITE(6,2000»  T(i)  ,Y(1),T(NP>,Y(NP)  ,TtNl)  ,T(N2)  ,YNN,3y,5Y,YMX,  0075  40 
1  SS,NP,NSrM  007560 

20  0  0  format ( IX, IIP  9. 3,  15,  13)  0  975  30 

return  007600 

ENO  007620 


subroutine  pc  (F»1NC,FMXC,  NST,  N2  ,  INC,  test  ^ 

COMHON  X(150,9),Y(150,9) ,Z(l50,9)  FXX(150,9),yTtl50,9) ,ZZ(i5C,^)  JJ7boO 
OlfiENSION  FHNC  (3 , 2)  ,  FMXC  (  3  f  2  )  ‘J076'»0 

DATA  SX/5t0/,SZ/5.Q/,JEL/2«0/iHT/0«  105/,Jl/7/,J2/?,/,  lSY//2/>:S<“>/33G77:c 

1/ 

FO£L=1.0/OEL  QJ7740 

y^x=AMAXl(FMXC(2,l),FMXC(2,2))  007760 

YM<  =  P>.OAT(  IFIX  (YMX)  )  0077  ^0 

IF  ttHx  ,&£.  0*0)  YfiX=YMX4-l,a  00  7600 

ynn=AHIN1 (FhnC (2,1),FHNC(2i2))  307620 

57  ::  (  yHX-YHN)  •R2£L  007940 

:=IFIX(SY)  0Q785Q 

IF  (SY  .3T.  FLQATCD)  ST L 0  A T ( I )  ♦! .  3  3  0  7  5  3  0 

IF  (SY  .ST.  12.0)  30  TO  25  007900 

SO  T2  70  0j7922 

25  SY=12.Q  007940 

yiiX=YMM>SY*DEL  3  07960 

IF  (FMXC(2,1)  .lE.  TMX)  go  to  50  0«7930 

GO  40  I=NST,N2,INC  006QOO 

IF  (YV(:,J1)  .GT.  YMX)  YY(I,J1)=YMX  QQ9020 

^0  CONTINUE  008040 

50  IF  (FhlxC(2.2)  .L£.  YHX)  GO  TO  70  0  08060 

00  60  I=nST,N2,INC  008080 

IF  (  YY(  I  ,  J2)  .GT.  YMX)  YY(  I,  J2)  =YNX  0  0810  0 

60  continue  008123 

7  0  XNN= ANINI (FMNC  tl » 1>  i FMNC  U  f2  )  )  3  08 140 

ZMN= AMINI (FMNC (3 , 1) »  FMNC (3,2))  008160 

XMXaXHN^OeL*( SX40.5J  008190 

ZMX=2MN^0£L*( SZ+0.5>  006200 

IF  (FMXCCl.lJ  .LE.  XHX>  GO  TO  90  009220 

DO  9C  I=N$T,N2,INC  008240 

IF  (XX(I,J1)  .GT.XMX)  XX(I,J1)=XHX  008260 

iO  CONTINUE  008230 

90  IF  (FNXC(1,2)  .LE.  XHX)  GO  TO  110  308300 

00  100  I=NST,n2,INC  008323 

IF  (XX(I,J2)  .GT.  XHX)  XX(I,J2)=XMX  008340 

100  CONTINUE  003360 

110  IF  (F«XC(3,1)  .L£.  ZNX)  GO  TO  130  303380 

00  120  r=NST, N2, INC  30‘'40n 

IF  (ZZ(I,J1)  .GT.  ZMX)  ZZ(I,Ji)=2HX  00842C 

120  continue  303440 

130  IF  (FMXC(3,2)  .LE.  Z Hx )  GO  TO  150  0084^0 

00  140  I=NST,N2,INC  3G8430 

IF  (ZZ(I,J2)  .GT.  ZNX)  ZZ(I,J2)=ZflX  00350  0 

140  CONTINUE  303523 

150  call  AXIS(0.0,3.0,11HY  3ISP  (  IN  >  , -1 1  ,  S  Y  ,  3  .  3  ,  YM  N  ,  CE  L)  0Q35‘*a 

CALL  AXIS  (0.  0  ,0.  Q  ,  IIHZ  DI^‘  (  IN)  ,  11  ,  SZ  ,  90 . 0  ,  ZMN  ,  OED  0  03560 

00  170  I*NST,N2,INC  000580 

Yl  =  ( YY ( I  ,  Jl)-Y4N)  •RCEL  3fl86ro 

Zl=( ZZ{ I , Jl) - Z-N> •9DEL  308623 

CALL  SYHBOL  (  Y1  ,Z1  tHT  ,ISY7,  3.  0  ,-1  )  siOSb^O 

Yl=  (  YY  (  I  ,  J2) -Y'^N)  •RDEL  3  08660 

Zl  =  (  ZZ(  I,vJ2)-Z4N)  •90EL  308630 

170  CALL  SYMBOL  (Y1  ,Z1  ,  HT  ,  ISY6, 0.  0  ,-2)  ^^a9700 

fall  Plot ( 0.0 , o. 0 ,-3 )  039720 
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APPENDIX  C 
PROGRAM  RSD 


n  n  n  n  n  n  n 


PROGRAM  RSri< INPUT f OUTPUT » TAPE? . TAPE5= INPUT r  rAPE6=0UTPUT )  000100 


THIS  RESTRAINT  SYSTEM  DYNAMICS  <RSD)  PROGRAM  DRAUS  6  GRAPHS  WHICH 
SHOW  THE  MOTION  OF  THE  HEAD?  SHOULDER f  ELBOW?  WRIST?  HIP?  KNEE?  AND 
ANKLE  AT  6  TIME  POINTS  DURING  THE  TEST, 

THE  INPUT  VARIABLES  READ  BY  SUBROUTINE  INPT  ARE  DEFINED  IN  THE 
WRITE-UP  DESCRIBING  THE  INPUT  DATA  FORMAT, 


THE  COMMENTS  IN 
SMALL  PROGRAM, 


THIS  SOURCE  LISTING  SHOULD  ADEQUATELY  DOCUMENT  THIS 


000140 
000160 
0001 GO 
000200 
000220 
000240 
000260 
000280 
OOOSOO 
000320 
000340 
000360 
000380 
000400 
000420 
000440 
000460 
000480 
000500 
000520 

DIMENSION  DATA( 1024) ?PX(6) ?PY<6) f TITLE(6) 

COMMON  X( 18) ? Y( 18) ? R ( 7 ) ? ANG? SX2 ?SY2 ? ITM 
C  PX  AND  PY  CONTAIN  THE  SIX  PLOT  ORIGINS  IN  SEQUENCE: 

DATA  PX/0,0f 3,25 f 3,25 ?-6.5f 3.25 ?3. 25/ fPY/4. fO. ?0 . ? -3 , ? 0 , ? 0 , / 

CALL  PL0TS<DATA?1024?7) 

C  PLOT  DATA  USING  A  92  X  SCALE  FACTOR: 


THE  FOLLOWING  5  SUBROUTINES  ARE  PART  OF  THIS  PROGRAM: 

FRAME  —  DRAWS  THE  PLOT  FRAME  AND  THE  SEAT  IN  THE  FRAME? 

BODY  —  DRAWS  BODY  ELEMENTS? 

TANG  —  COMPUTES  AND  DRAUS  TANGENT  LINES  BETWEEN  BODY  ELEMENTS? 


INPT  —  READS  ALL  DATA  EXCEPT 
FACTORS?  AND  CONVERTS 
INTRPL-  INTERPOLATES  SHOULDER 
FIFTH  BELT  FIDICUAL. 


THE  TITLE  CARD?  COMPUTES  CALIBRATION 
DATA  from  COUNTS  TO  INCHES, 

HARNESS  POINTS  BETWEEN  THE  FIRST  ?>NP 


FCTR=0.92 

CALL  FACTOR (FCTR) 

IP  IS  THE  TIME  OR  PLOT 
TIME  SAMPLES: 


INDEX?  IP  IS  INCREMENTED  FROM  1  TO  6  FOR  THE 


000560 

000580 

000600 

000620 

000640 

000660 

000680 

000700 

6000720 

000740 


10  IP=0  000760 

C  READ  AND  PRINT  THE  PLOT  TITLE:  0v>0780 

READ(5?1200)  TITLE  000800 

IF  (E0F(5))  99--?20  000820 

20  WRITE(6?2200)  TITLE  000840 

WRITE(6?2300>  000860 

C  SUBROUTINE  INPT  READS  THE  REMAINING  SETUP  DATA  PLUS  THE  0  TIME  DATA  000880 

C  AND  CONVERTS  THE  DATA  FROM  COUNTS  TO  INCHES:  000900 

CALL  INPT ( IP)  000920 

C  CONVERT  RADII  TO  PLOT  SCALE  INCHES?  000940 

C  THE  PLOT  SCALE  IS  1/2  INCH  »  1  FOOT  (BEFORE  APPLICATION  OF  SCALE  000960 

C  FACTOR  'FCTR'  ABOVE):  000980 

DO  30  1*1? 7  001000 

30  R( I )*R( I )/24.  001020 

WR I TE ( 6  ?  2000 )  <R<I>?I*1?7)?  ANG  001040 

IP*IP+1  001060 

11=18  001080 

GO  TO  55  001100 

50  IP»IP+1  001120 

C  CALIB  IS  AN  ENTRY  POINT  IN  SUBROUTINE  INPT?  DATA  ARE  READ  AND  001140 

C  CALIBRATED  FOR  THE  IP-TH  FRAME;  001160 

CALL  CALIB( IP)  001180 


190 


r  j  r  j 


11*16  001200 

C  CONCERT  ALL  X  AND  Z-AXIS  DATA  TO  PLOT  SCALE  INCHES  AND  ADJUST  TO  001220 

C  LOWER  LEFT  PLOT  ORIGIN  (X  AND  Z  ARE  PRESENTLY  REFERENCED  TO  THE  001240 

C  INTERSECTION  OF  THE  SEAT  PACK  AND  SEAT  PAN>;  001260 

55  DO  60  1*1 f II  001280 

X< I)*X<I)/24*0+2,0  001300 

60  Y(I)»r(r)/24,0-f0.5  001320 

C  PRINT  X  AND  Y  DATA  IN  PLOT  SCALE  INCHES:  001340 

WRITE <6f 2100)  (X(I)pY(I)fI*lfII)  001360 

C  SET  ORIGIN  FOR  PLOT  'IP':  001380 

CALL  PLOT(PX< IP) fPY( IP) f-3)  001400 

C  10  AND  lA  CONTROL  ORDINATE  AND  ABSCISSA  ANNOTATION  <0 —  ANNOTATION  001420 

C  IS  OMITTED?  1 —  ANNOTATION  IS  DRAWN):  001440 

10*0  001460 

IF  (IP  .EQ.  1  .OR,  IP  .EQ.  4)  I0»1  001480 

IA*0  001500 

IF  (IP  ,GE.  4)  lA-l  001520 

C  DRAW  PLOT  AND  CHAIR  OUTLINE:  001540 

CALL  FRAME(IO»IA)  001560 

C  DRAW  FIGURE  IN  THE  CHAIR:  001580 

CALL  BODY  001600 

IF  (IP  ,LT.  6)  GO  TO  50  001620 

C  PRINT  PLOT  TITLE  BELOW  THE  SET  OF  SIX  PLOTS:  0016^0 

CALL  SYMBOL ( -5 . 95 » - 1 . 0  f  0 . 1 4  r  T I TLE  f  0 . 0  f  60 )  00  J  660 


CALL  PL0T(5.0F0.0f-3>  001600 

GO  TO  10  0C17O0 

999  CALL  PLOTS  00l720 

STOP  'END  OF  JOB"  001740 

1200  F0RMAT(6A10)  001760 

2000  FORMAT<«  RADII  IN  PLOT  SCALE  INCHES  PLUS  THE  NOSE-TRAGEON  ANGLE  1001780 
IN  RADIANS  ARE:»/(llXf0FlO,3) )  001800 

2100  FORMAT!*  CALIBRATED  DATA  POINTS  IN  PLOT  SCALE  INCHES  ARE:*/  001820 

1  (llXf0FlO,3) )  001840 

200  F0RMAT(*1  TEST  TITLE:  *»6A10>  001860 

300  FORMAT!//*  CALIBRATION  DATA»  RADII,  AND  CALIBRATED  DATA  ARE  PPINTE001880 

ID  IN  THE  FOLLOWING  SEQUENCE  FOR  INDEX  1  =  1  TO  16:*/  001*^00 

2  5X»*HIP»  KNEEf  ANKLEf  SHOULDERf  */5Xf*ELB0Wf  WRIST.  TRAGEON,  n0SE0O1<?2O 

3f*/5Xf*LAP  HARNESS  BUCKLE f  AND  7  SHOULDER  HARNESS  POINTS.*//  001^40 


4*  CHECK  WRITE-UP  OF  INPUT  CARD  FORMATS  FOR  VARIABLE  DEF IN  I T IONS . * ' 00 1  <?6n 


END 


*>01^80 
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noon 


SUBROUTINE  FRAHECOflA) 

THIS  SUBROUTINE  DRAWS  THE  PLOT  FRAHE  PLUS  THE  CHAIR  WITHIN  THE  FRAME 
THE  PLOT  SCALE  IS  1/2  INCH  «  1  FOOT. 

COMMON  X( 18) f Y(18) »R<7) f ANGfSX2*SY2f ITM 
DIMENSION  lABSC(7)f I0RD(3) 

DATA  IABSC/2H-4f2H-3f2H-2f2H-l»2H  Of2H  1f2H  2/f lORD/lHOf 1H1 » lH2f 
llH3f lH4/»HGHT/0.07/»SX/3.0/fSY/2.5/ 

C  DEFINE  IMAGE  FRAME.* 

CALL  PLQT(O.OrO.Of 3) 

CALL  PL0T<SXr0.0f2) 

CALL  PL0T(SXrSY»2) 

CALL  PL0T(0. »SYf 2) 

CALL  PL0T(O. fO. f2) 

C  DRAW  DASHED  LINE  AT  DECK  HEIGHT— 2.94*  ABOVE  ABSCISSA: 

Yla2. 94/24. 

XD*0. 096774 
X1=-XD 

DO  20  I«lfl6 
X1*X1+XD 

CALL  PL0T(XlfYlF3> 

Xl-Xl+XD 

20  CALL  PL0T<XlrYlf2> 

C  DRAW  X-AXIS  TIC  MARKS: 

X1*0. 

Yl*0.07 
DO  40  I»l*5 
Xl-Xl+0.5 

CALL  PL0T(X1»0.0»3) 

40  CALL  PLOT(Xlf Ylr2) 
c  DRAW  Y-AXIS  ric  marks: 

Xl»0.07 

Y1»0. 

DO  60  r«l*4 
Yl-Yl+0.5 

CALL  PLOTCO.O.Yt f3) 

60  CALL  PL0T(XlfYlf2> 

C  FOR  lA  Of  DRAW  ABSCISSA  ANNOTATION.* 

IF  <IA)  05f8S»7O 
70  XI  — i.5«HGHT 
Yl— ,12 
DO  90  I*lf7 

CALL  SYMB0L<XlfYlfHCHTflABSC(I)f0.0f2) 

80  X1*X140.5 

C  FOR  lO:  Of  DRAW  ORDINATE  ANNOTATION: 

85  IF  (10)  I20fl20f90 
90  XI  — 1.5BHGMT 
Yl»-0.S9Me«T 
DO  100  1*1 f 5 
Yl»Yl+0.5 

100  CALL  SYMBOL<Xl»YlfHGHTf lORD(I>fO,Of 1) 

C  PRINT  ELAPSED  TIME  IN  UPPER  LEFT  CORNER! 

120  CALL  SYMBOL  < 0. 2 f 2 . 25 f HGHT . ITMf 0 . Of  3 > 

CALL  SYMBOL  t  0 , 49  f  2 . 25  f  HGHT  f  4HMSEC  f  0 . 0  f  4 ) 


002000 

002020 

,002040 

002060 

002080 

002100 

002120 

002140 

002160 

002180 

002200 

002220 

002240 

002260 

002280 

002300 

002320 

002340 

002360 

002380 

002400 

002420 

002440 

002460 

002480 

002500 

002520 

002540 

002560 

002580 

002600 

002620 

002640 

002660 

002680 

002700 

002720 

002740 

002760 

002780 

002800 

002820 

002840 

002860 

002880 

002900 

002920 

002940 

002960 

002<»80 

003000 

003020 

003040 

003060 

003080 
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c 

QRAW  SEAT  CONFIGURATIONS 

00310C 

c 

SX2,SY2  ARE  THE  COORDINATES  OF  THE  UPPER  tcFT  CORNER  OF 

THE 

CHAIR 

003120 

c 

SEAT  pan;  the  slope  of  THE  SEAT  PAN  IS  7,25  DEGREES  ANO 

THE 

SLOPE 

Q93140 

c 

OF  the  seat  back  IS  12,67  DEGREES, 

003160 

SX2S1.261 

003190 

ST2*C,594 

003200 

CALL  PL0T<l,261f0,5f 3) 

003220 

CALL  PL0T(SX2fSY2,2) 

003240 

CALL  PLOT(2,090,5,2) 

003260 

CALL  PL0T(2.38y2,i9»2) 

003260 

c 

DRAW  SEAT  BACK  HEAD  RESTS 

003300 

CALL  PL0T(2,262»l,637y31 

003320 

call  PL0T(2.223yl,646f 2) 

003340 

CALL  PLOTi2,314,2,OS2y2) 

003360 

call  PLOT(2.356«2,043»2) 

003360 

RETURN 

003400 

END 

003420 
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Of»  o  on  non  Cl  o  non  ooo  o  oorio 


SU3RCUTINE  BOOt 


P 


003440 
tlG3460 

THIS  SUoROUTIME  DRAMS  THE  BODY  ELFhENTS  ^LUS  THE  SHOULDER  HARNESS  ANOO(i34dO 


lap  3clT  points  IN  EACH  FRAME. 

C0352»? 

OIhENSIOn  U(9),^<9>  003540 

COMMON  X1,X2, X3, X4,X5, X7, X6,3XCd) ,XS3, XL3, Yl, Y2,Y3,r4, Y5, Y6  *  Y7, 003560 
1Y3,3Y(S) , YS3, YL3,P1,R2,R3,R4,R6,R6,R7,ANG,SX2,SY2,ITM  mu  35 60 

DATA  Al/a.-3/,A2/36C.  0/ ,  HGH T7 u . C 7/ ,  1303/4/  00360  3 

CRAW  HIP  and  knee  CIRCLESI  00362C 

CALL  CIRCL£(X1+R1, Y1,A1,A2,R1,R1, At;  Qu364Q 

call  circle (X2+R2#  Y2,Al,A2iR2»R2»At)  00  3660 

IPlTsl  FOR  HIP-T0-<NEE  TANGENT  LIKES  AND  IPLT>1  FOR  ALL  OTHER  0u363a 

CALLS  TO  SU3ROUTINE  •TANGM  003733 

IPlT=1  303720 

COMPUTE  HlTi.TO*KNEE  TANGENT  LINESI  303740 

call  TANGCXI, Y1,X2,Y2,R1,R2, IPLT,SX2fSY2)  303760 

75  IPLT=2  003790 

ORAM  ankle  CIRCLEI  003930 

CALL  CIRCLE < X 3>R3 fY3, At, A2,R3,R3, At)  C 038 20 

DRAW  ANKL£-T0-KNE£  TANGENT  LiNESi  "03640 

call  TANG(X2,Y2tX3,Y3,R2,R3,IPLT,SX2,SY2)  003660 

ORAM  SHOULOER*  EL30M  AND  MRIST  CIRCLES  AND  TANGENTS!  003660 

call  CIRCLE(X4vR49 Y4,A1,A2»R4,R4v A1)  033900 

call  CIRCLE(X5+R5fY5fAl,A2,R5,R5, At J  003920 

CALL  CIRCLE(X64R6tY69Al»A2,R69R6»Al)  0 03940 

IPLTs3  003960 

CALL  TANG<X4tr4,X5fr5fR4,R5f IPLT,SX2,SY2)  3u3980 

IPUT:s4  004LOO 

call  TANG(X59Y5«X6»Y6tR59R6»IPLT9SX2>SY2)  004020 

CRAW  head  CIRCLEI  004040 

call  CIRCLE <X74R7,Y7, At, A2,R79R7, At)  0J4060 

PLOT  EYE  POINTI  004U90 

call  3YM3aL(XdtY6  9H6HT/2. 0  t3«0«  0  »-l)  0  04100 

COP^P^JTE  and  ORAM  HEAD  2-AXIS  LINE!  004120 

theta  —  ANGLE  TRAGEON-NOSE  LINE  MAKES  IN  X,Y  AXI5  THROUGH  TRAGEON  004140 

POINT.  004160 

THETAsATAN2(Y8-Y7f X8-X7)  C"4190 

IF  (THETA  .LT.  0.0)  THETAaTHETA+6.2831653  004230 

ANG  —  angle  SETMEEN  TRAGEON-NOSE  LINE  AND  HEAD  Z-AXIS.  004220 

4NG  IS  COMPUTED  IN  RADI  AND  IN  SUBROUTINE  INPTx  00*9240 

TH£TAaTHETA*ANC  004260 

XPaR7*C0S (THETA)  304260 

YPaa7*SlN(TH£TA)  004330 

XL1=X79XP  OC4320 

XL2SX7-XP  314340 

YL1»Y74YP  30456C 

YL2*Y7-yP  0043"0 

PLOT  Z-AXIS  LINE  OETERMINED  9V  POINTS  XL1»YL1  ANO  XL2,YL2l  054430 

CALL  PLOTCXLl, YLlf 3)  034420 

call  plot (XL2, YL292)  004440 

WRITE (6, 2100)  XLliYLlf XL2« YL2  004460 

plot  restraint  belt  lower  attach  point  CXL8,YL0)  PLUS  ThE  lAP  BUCKLE  004460 

POINT  (8X(1)  ydYCD)  t  9U4500 

call  SYMSOLCXLBvYLBfHGHTflBCOtC.Of-l)  004520 
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call  PL0T(3X<1) ,BY(1),2)  004540 

C  INTERPOLATE  9  ®0INTS  BETWEEN  1-ST  AND  5-TH  BELT  POINTS;  INTERPOLATE  004560 

C  X  OATA  FOR  A  GIVEN  fl  004560 

0Y3(Br(5;-8Y(i)) /10«  304630 

00  10?  Islf9  004620 

IJO  U(I) =8Y(1) ♦0Y*FL0AT(I)  034640 

Iis6  004660 

1239  0C46aC 

CALL  lNTRPL(lX,By<l)  ,8X(1)  ,I2,U,W)  004730 

WRITE  (6 92000)  3X(1)  tBYd)  9  (V(l)  fUd)  9l*lr9)  9(8X(I)  9aY(I)  9  I^Sid)  304720 
C  PLOT  THE  9  INTERPOLATED  POINTSI  004740 

00  120  I»l99  304763 

120  CALL  PLOT(VCI) 9U(I),2)  004760 

C  PLOT  THE  LAST  4  SHOULDER  HARNESS  POINTS*  034630 

00  130  Is5»6  OC4620 

133  CAlL  PtOT(9X(I)9aT(I)92)  004640 

C  PLOT  THE  SHOULDER  HARNESS  SEAT  ATTACH  POINT*  004660 

CALL  Srh80L(XS39TS39HOHT9lSC090«0>-2)  004663 

RETURN  004900 


20J0  FORHAT(*  LAP  BELT  AND  SHOULDER  HARNESS  X9Y  POINTS  ARE  (BUCKLE  POlMOtt4923 
IT9  9  INTERPOLATED  POINTS9  PLUS  THE  LAST  4  SHOULDER  HARNESS  POINTS )  0049‘40 


2**/  (ilX,8FlO*3) )  004960 

2133  FORMAT(*  X,Y  POINTS  AT  BOTH  ENOS  OF  THE  HEAD  Z-AXIS  LINE  ARE**/  004960 
1  11X,4F10.3>  005000 

ENO  005020 
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O  O 


Ja504Q 
a05C5Q 
0<}5r6<? 
aasodo 

JOSIJO 
005120 
0U514C 
0U51&0 
005130 
005200 
005220 
0052^0 

C  algorithms  mere  OEREVEO  such  that  the  computations  should  be  correct  0052BO 


C  EVEN  IF  THESE  CONOITIONS  ARE  NOT  FULLFILLEO,  JOSZSO 

XOsXl-XZ  005330 

YOsYl-VZ  005320 

C  SLOPE  —  SLOPE  OF  LINE  THROUGH  THE  TMO  CIRCLE  CENTER  POINTSI  "35340 

SLOPE®YO/XO  005360 

THETAsATAN(A9S (SLOPE n  005360 

FCT*SIGN(1,0, SLOPE)  305400 

C  3IST  —  DISTANCE  BETWEEN  THE  TWO  CIRCLE  CENTER  POINTS*  005420 

OISTaSQRT ( XO*  XO^YO^Y  0*  0  05440 

PHIsASiNf (Ri-R2l /OtST)  005460 

C  angles  THETA  ANO  PHI  ARE  REQUIRED  TO  COMPUTE  ANGLES  Ai  AND  A2  WHICH  005460 

C  ARE  THEN  USED  TO  OEFINE  THE  X  ANO  Y  COORDINATES  OF  THE  TANGENT  005500 

C  POINTSI  305520 

Ala090-THETA-FCT*PHI  005540 

A2s09fl-THETA^FCT*PNI  345560 

SU»SXN(A1>  005560 

SLsSlN(A2>  005600 

CU«-FCr*COSIAl)  005620 

CL»FCT»COS<A2)  005640 

C  COMPUTE  X  ANO  T  UPPER  AND  LOWER  TANGENT  POINTS  FOR  CIRCLE  1*  005660 

XUlsXl<»Rl*CU  305660 

YU1»Y1>R1*SU  005230 

XLl«Xlf'Rl*CL  005220 

YL1*Y1-R1*SL  005240 

C  COMPUTE  X  ANO  Y  UPPER  AND  LOWER  TANGENT  POINTS  FOR  CIRCLE  2t  005260 

XU2*X2Y’R2»CU  005230 

YU2*Y2^R2*SU  005630 

XL2*X2^R2»CL  005620 

YL2«Y2-R2^SL  005640 

C  PLOT  UP^CR  TANGENT  LiNEt  005660 

CALL  PLOT ( XUi »  YUl *  3)  0056  60 

call  PLOT(XU2,YU2,2)  005900 

MRITE(6,21D0)  LABEL (1» IPLT )» L ABEL (2 , IPLT) » XUI » YUl « XLi> Y LI 9XU2 • YU2 i 0 05920 
1  XL2fYL2  035940 

C  PLOT  LOWER  TANGENT  LINEI  665960 

60  CALL  PLOTIXLI, YL1,3)  005950 

IF  (IPLT*i)  10atl00f6Q  006000 

60  CALL  PLCT(XL29YL2»2)  006020 

RETURN  006040 

30TT0M  HIP-TO-KNEE  TANGENT  LINE  NAY  INTERFERE  WITH  THE  UPPER  LEFT  0U6060 

CORNER  OF  The  SEAT  PAN  (SX2»SY2) (  CHECK  ANO  DRAW  LINE  ACCORDINGLY.  016060 

IF  IT  JOES  INTERFSREf  COMPUTE  THE  TANGENT  FROM  THE  CORNER  OF  THE  106133 


SUBROUTINE  T ANG(X 1,Y 1, X2 » Y 2^ RI9 R2 » IPLT , S X2 fSYZ ) 

DIMENSION  LA8EL(2>4) 

DATA  090/1.52079633/ 

1«LA5EL/10H  HIP  AND»dH  KNEE  flQH  KNEE  ANQf6H  ANKLE  9 
2  lOHSHOULOER  A,6HN0  ELaOWylCH  ELBOW  ANO96H  WRIST  / 

C  THIS  SUBROUTINE  COMPUTES  ANO  DRAWS  THE  TANGENT  LINES  CONNECTING 
C  THE  TWO  CIRCLES.  THE  CIRCLE  CENTERS  ARE  AT  XI, Y1  AnO  X2,Y2  ANO  THE 
C  RADII  ARE  R1  AND  R2.  THE  CIRCLES  WITH  TANGENT  LINES  FORM  THE  BOOT 
C  SEGMENTS. 

C  WHEN  THIS  ROUTINE  WAS  CQDEO,  R1  WAS  ALWAYS  >  R2  ANO  XI9YI  WAS 
C  ALWAYS  FURTHER  FROM  THE  PLOT  ORIGIN  THAN  XZfXZ;  THUS  WE  WERE  ALWAYS 
C  WORKING  FROM  THE  SMALL  CIRCLE  TO  THE  LARGE  CIRCLE.  HOWEVER,  THE 
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C  SEAT  PAN  TO  THE  KNEE  CIRCLE.  ^  006120 

C  COMPUTE  SLOPE  OF  TANGENT  LiNEl  006140 

130  SLOPE  =  C  YL1-YL2I / ( XL1-XL2)  0  06160 

C  COMPUTE  Y  (TO  COOROINATE  FOR  SEAT  PAN  $X2  POINT?  IF  YC  >  SY2,  THEN 
C  THE  SEAT  PAN  DOESN'T  INTERFERE  WITH  THE  HlP-TO-<NtE  TANGENT  LINEI  306200 

YC=SLOPE*«SX2-XL2) ♦YL2  006220 

IF  (YC  .GE.  SY2)  GO  TO  60  006240 

C  COMPUTE  tangent  FROM  SX2,Sy2  — >  KNEE  CIRCLE  (R2) I  006260 

C  KNEE  CIRCLE  CENTER  MUST  BE  TO  THE  LEFT  OF  SX2,SY2I  006280 

IF  (X2  .GE.  SX2)  GO  TO  l60  0063J0 

C  OIST  —  DISTANCE  FROM  CORNER  OF  TmE  SEAT  PAN  TO  THE  CENTER  OF  THE  006320 

C  KNEE  CIRCLES  006340 

OIST*SQRT( (SX2-X2) <SY2-Y2) •♦2)  006360 

IF  (OIST  cGT.  R2}  GO  TO  120  006380 

C  OMIT  TANGENT  LINS  FOR  OIST  <  R2— — SEAT  PAN  POINT  IS  WITHIN  THE  006400 

C  RADIUS  OF  THE  KNEE  CIRCLES  0u6420 

WRITE (6 92300)  OIST9R2  33644Q 

GO  TO  150  306460 

C  ALP  IS  THE  SLOPE  OF  THE  LINE  FROM  THE  CENTER  OF  THE  KNEE  CIRCLE  TO  006480 

C  THE  SEAT  PAN  POINTS  006500 

120  ALP=ATAN((SY2-Y2)/(SXZ«X2) )  006520 

C  COMPUTE  GAMMA  USING  THE  TWO  KNOWN  SIDES  OF  THE  TRIANGLES  006540 

GAM3AC0S(R2/0IST)  006560 

C  COMPUTE  'PHI*  —  angle  IN  NEW  TRIANGLE  REOUIREO  TO  COMPUTE  TANGENT  Q0658Q 

C  POINT  XL2tYL2  BELOWt  006600 

PHIsGAM-ALP  006620 

C  COMPUTE  X  AMO  Y  COORDINATES  OF  TANGENT  POINT  ON  THE  KNEE  CIRCLES  00664Q 

XL2aX2»P2PCOS(PMl)  006660 

YL  2»Y2-R2*SIM (PHI )  0  066  80 

C  DRAW  THE  TANGENT  LINES  FROM  THE  MIP  CIRCLE  TO  THE  CORNER  OF  THE  SEAT  306730 

C  PAN  TO  THE  KNEE  CIRCLES  Q0672Q 

CALL  PL0r(SX2,SY2,2»  006740 

WRITE(6924yO>  SLOPE9 YC 9 SY2 tOlST 9  ALP  9GAMtXL29YL2  0  06760 

GO  TO  60  006730 

ISO  call  PL0T(SX29SY292)  906803 

2100  FORMAT(»  UPPER  AND  LOWER  TANGENT  POINTS  FOR  THE  ♦9A109A8,^  CIRCLE  ^06820 

lARES*/CllX98Flfl.3) )  096840 

2330  FORMATS*  THE  DISTANCE  FROM  THE  CORNER  OF  THE  SEAT  PAN  TO  THE  CcNTE30686C 
IR  OF  THE  KNEE  CIRCLE  »*9F8.39*  THE  KNEE  RADIUS  =*,F8.3)  906890 

24JC  FORMATS*  SLOPE,  TC,  SY2,  OIST,  AlP,  GAM,  XL2,  YL2  FROM  THE  CORNER  006900 

1  OF  The  seat  pan  to  knee  circle  tangent  POINT  COHPUTATIONSI*/  006920 

2  llX9dFl0.3)  006940 

RETURN  9C6960 

END  006980 


\ 
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SU9R0UTINE  iNPTflP) 

dimension  BAF(IO) » XI (7 )  , Y1  (7 )  , X2 (7)  * t? ( 7)  ,CAL(16) 

COMMON  X(16)  »XS8,XLB,y  (16)  S8 ,  YU ‘It  R  ( 7  >  ,  A  NG,  SX2  ,  SY2, 1 TM 

This  subroutine  reads  all  input  data  except  the  'TITLE'  CARO, 
COMPUTES  All  conversion  factors  (COUNTS  TO  INCHES),  ANO 
calibrates  all  data, 

THE  DATA  POINT  SEQUENCE  ISI 
INDEX  parameter 

1  HIP 

2  KNEE 

3  ankle 

k  SHOULDER 

5  ELBOW 

6  WRIST 

7  TRAGEON 

3  NOSE 

9  HARNESS  BUCKLE 

1J^16  SHOULDER  HARNESS 

DATA  RAD/57*2957795/ 

C  READ  ANO  WRITE  ALL  TEST  PARAMETER  INPUT  DATA; 

C  all  parameter  symbols  SHOULO  be  defined  in  ThE  WRITE-UP  DESCRIBING 
c  The  format  of  the  input  oatai 

READ (5,1000)  OPS,OSC,OPP,DSF, XS9,YS8,XL3, tLa,XAS5F,YASSF 
WRITE (6,3010) OPS,OSC,OPF,OSF,XSB, YS8,XL3, YL6,XASSF,YASSF 
R£A0(5,100Q>  BAF 
WRITE(6,3020)  BAF 

READ (5, 1000)  XPF,YPF,XPA,YPA,XSF,TSF,XSA, YSA 
WRITE (6, 3030) XPF, YPF ,XPA, YPA , XSF , YSF, XSA , YSA 
READ (5, 1100)  (XKDtYKt)  ,X2(I)  ,Y2(I>  ,1  =  2,6) 

WRITE (6, 3040) ( XI ( I ) , Yi < 1) , X2 ( I) , Y 2 ( I) , 1=2 , 6) 

REAO(5,1000»  TX,TY,ex,EY 
WRITE (6,3350) TX,TY,EX,EY 
C  COMPUTE  PANEL  AND  SEAT  CONVERSION  FACTORSi 
PC AL=SQRT ( (XPF-XPA) •*2^f YPF.YPA ) /OPF 
SCALsSQRK (XSF-XSA) ♦♦2^(YSF-YSA) •♦2)XOSF 
C  COMPUTE  OISTANCe  FROM  THE  FOCAL  POINT  TO  THE  SEAT  (SS>) 
SS=(DPS»OSF)/ (OPF-<SCAL/PCAL) •CPF) 

WRITE(6,3060)  PCAL,SCAL,SS 

C  COMPUTE  The  angle  the  TRAGEON  •  NOSE  LINE  MAKES  WITH  THE  Z-AXIS 
C  THROUGH  THE  HEAD) 

DXaTX-EX 

OY=TY-EV 

AN6s  A  TAN ( AAS ( OX/0 Y )  I 

C  COMPUTE  REMAINING  CONVERSION  FACTORSI 
00  100  1=1,10 

IJO  CAL(I)=SS»SCAL/(SS^0SC-BAF (I )/2.0) 

DO  liU  1=13,16 
110  CAL( I>=CAL (10) 

OCAL=CAL (13)-CAL (9) 

C  COMPUTE  RAOrr  OF  ALL  800Y  ELEMENTS  EXCEPT  THE  H£AO  AND  THE  HiPl 
DO  150  1=2,6 

150  R(I)  =SQRT  (  (X2  (D-XKI)  )  ••  2 ♦(  Y2 (I ) -Y1  ( I)  ) ••2)  /  (  2. C •CAl  C X  J  ) 

ENTRY  CALI3 

C  READ  ohOTO  DATA  FQP  EACH  TIME  SET! 

REAO(5,1200)  ITM 


007000 

0Q702Q 

0070H0 

007Q60 

007050 

007100 

007120 

co7ii,a 

007160 

007130 

QQ72uO 

007220 

007240 

007260 

007230 

007300 

007320 

007340 

007360 

007330 

007400 

007423 

007440 

007460 

007430 

007500 

007520 

007540 

007560 

007530 

0076CQ 

007620 

007640 

007660 

007630 

0C7700 

007720 

007740 

007760 

007730 

007800 

007820 

007840 

Q07660 

007630 

007900 

Q07920 

087940 

00796Q 

007980 

008000 

006020 

006040 

006060 

006030 
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WRITE(6,210C)  ITM  OOdlUO 

RE  AO (5,113  0)  XSFF, YSFF,XSAF, YSAF, (X(I) ,T(I),I  =  1,16)  008120 

WRITE  <6, 3100)  XSFF,  YSFF,XSAF,rSAF,  ( X  <  I )  ,  Y  (I )  ,  I  =1 , 16 )  OOai^fC 

C  OO^^PUTE  CALIB  factors  FOR  3  SHOULDER  STRAP  POINTS  WITHOUT  FIOUCIALSI  008160 
YBU=Y(9)  008130 

VFCT=OCAL/ (Y( 13) -vgU)  006200 

CAL(10)»CAL(9) ♦TFCT* (Y (10)-Y9U>  008220 

CAl(11) sCAL(9) ♦YFCT^CY (11) -YBU)  0082^0 

cal (12) »CAL(9) ♦YFCT*  (Y (12) -YBU)  Q 0  8260 

WRITE (6, 2200  cal  0  082  30 

C  calibrate  all  data  for  I-TH  FRAHEI  008300 

XSAF=XSAF/SCAL  008320 

TSAF=YSAF/SCAL  038340 

XFxX ASSF-XSAF  008360 

YF=YASSF-YSAF  008330 

DO  200  I»l,16  008^)0 

X(  I)  sX(  I)  /CAL  (I)  tXF  0  0  8420 

230  Y(I)*Y(I)/CAL(I)>YF  048440 

IF  (IP  .GT.  0)  RETURN  008460 

C  CONFUTE  RADII  OF  HIP  ANO  HEAD  (FOP  0  FRAME  ONLY) I  008480 

XHR»0. 2307692 3*Y (7)- 1. 3190769  008500 

R(7) *(XHR-X(7) )*C0S(12«6667/RA0)  008520 

YSP»-C# 12634* X(l)  008540 

R(l) «(Y(1)-YSP)*C0S(7, 25/RAD)  008560 

RETURN  008580 

1030  FORMAT(5X,10F7,G)  008600 

1100  F0RMAT(5X»8F7.Q)  008620 

12 JO  FORMAT (5X, A3)  0  08640 

2130  FORMAT(*lITHx*,A3,*  MSEC;  INPUT  DATA  FOR  THIS  TIME  FRAME  AREl*/)  008660 

2200  FORMAT(*  CALIBRATION  DATA  FOR  THIS  TIME  FRAME  AR£l*/  308680 

1  (llX,aF10«3) )  008700 

3010  format (*0 OPS  £TC#»*,10F10,3)  008720 

3020  FORMAK*  BAF  ETC.  *•  ,10F10 .3 )  008740 

3030  FORMAT(*  XPF  ETC. ,1 OFlO .3 )  008760 

3040  FORMAT(^  XI  ETC. ,8F10. 3/ (IIX , 8F10. 3) )  008730 

3050  FORMAT(*  TX  ETC. ,4F10. 3)  008800 

3060  FORMAK*  PCAL  ETC.*^  ,3F10. 3)  00882U 

3130  FORMAT(»QXSFF  ETC. ,8F10, 3/ < 11 X, 8F10. 3) )  008840 

END  008860 
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SUBSCUTINE  INTRPL  (L,  X,  Y,N,  LI,  V) 

InTE^POCATION  of  a  5ING1.£-\/AlUE0  function 

TAKEN  communications  OF  ACM,  OCTOBER  1972,  VOL  l5,  NUMBER  12. 

algorithm  number  433. 

REPRINT  privilege  GRANTED  BY  PERMISSION  OF  THE  ASSOCIATION  FOR 
computing  MACHINERY, 

THIS  SUBROUTINE  I NTERPOL ATES ,  FROM  VALUES  OF  THE  FUNCTION 
GIVEN  AS  ORDINATES  OF  INPUT  DATA  POINTS  IN  AN  X-Y  PLANE 
AND  for  a  given  set  OF  X  VALUES  (ABSCISSAS),  THE  VALUES  OF 
A  SINGLE-VALUED  FUNCTION  Y=Y(X). 


c  the  INPUT  parameters  are 

C 

C  L  s  NUMBER  OF  INPUT  DATA  POINTS(MUST  BE  2  OR  GREATER) 

c  X  =  ARRAY  OF  DIMENSION  L  STORING  THE  X  VA LUES ( A 8SCISSAS )  OF  INPUT 

C  DATA  POINTS  (IN  ASCENDING  ORDER) 

C  Y  =  ARRAY  OF  DIMENSION  L  STORING  THE  Y  VALUES ( OROINA TES )  OF  INPUT 

C  OATA  POINTS 

C  N  =  NUMBER  OF  POINTS  AT  WHICH  INTERPOLATION  OF  THE  Y  VALUE 

C  (OROINATE)  IS  OESIRED  (MUST  BE  1  OR  GREATER) 

C  U  »  ARRAY  OF  OIMENSION  N  STORING  THE  X  VALUES  (ABSCISSAS)  OF 

C  DESIRED  POINTS 

C 

C  the  OUTPUT  parameter  IS 

c 

C  Vs  ARRAY  OF  DIMENSION  N  WHERE  THE  iNTERPOLArEO  Y  VALUES 

C  (ORDINATES)  ARE  TO  BE  QISPLAYEO 

o 

C  DECLARATION  STATEMENTS 
C 

OIMENSION  XKL) ,Y(L>,U(N) ,V(N) 

EDUI VALENCE  (Pa,X3) , (DO , Y3) , (Q1,T3) 

REAL  M1,m2,M3,M4,M5 

EQUI valence  (UKfDX) , <IMN,X2, A1,M1» , <IMX,X5 ,A5,M5) , 

1  ( J,SH,SA) , (T2,W2,W4,Q2) y (Y5,W3,Q3) 

C 

C  PRELIMINARY  PROCESSING 

10  LC=L 
LMlsLQ-1 
LM2=LM1-1 
LPlaLO^l 
NO  =N 

rF(LM2  .LT.  fl)  GO  TO  90 
IF  (NO  .LE.  0)  GO  TO  91 
DO  11  1-2, LO 

IF  (XCI-1>-X(I))  11,95,9B 

11  CONTINUE 
IPVsO 


C  MAIN  OO-LOOP 


CO  80  <=1,N0 


308880 

008930 

306920 

0Q894O 

D38960 

308980 

009000 

009320 

339040 

009060 

309080 

009103 

009120 

009140 

009160 

009190 

009200 

009220 

009240 

009260 

009290 

009300 

009320 

009340 

009360 

009380 

099430 

009420 

009440 

009460 

Q0949Q 

009500 

009520 

009540 

009560 

009580 

009600 

009620 

009640 

009660 

0Q968Q 

009705 

009720 

009740 

009760 

009780 

009800 

009020 

009840 

339863 

009860 

009900 

009920 

0099**0 

309960 
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o  o  o  o  o  o  o 


UK=U  (K) 


C  ROUTiNe  TO  LOCATE  TmE  OESIRED  POINT 

r 

20  IF(LM2  .£Q,  0)  GO  TO  27 
IF  (UK  *GE,  X(L0) )  GO  TO  26 
IF(UK  •LT,  X(l))  GO  TO  25 
INN32 
INX-LO 

21  I^dHN^lMX)  /2 
IF  (UK  .GE.  X  tl)  )  GO  TO  23 

22  INX=I 
GO  TO  24 

23  iNNsI^l 

24  IF  (IMX  .GT,  IMN)  GO  TO  21 
I=IMX 
GO  TO  30 

25  1=1 
GO  TO  30 

26  I=LP1 
GO  TO  30 

27  1  =  2 

CHECK  IF  I=IPV 

30  IF  tl  ,£0.  IPV)  GO  TO  70 
IP7=I 

ROUTINES  TO  PICK  UP  NECESSARY  X  AND  T  VALUES  AMO 
TO  ESTIMATE  THEM  IF  NECESSARY 

J=I 

IF  (J  .EQ,  1)  js2 
IF  (J  •EQ.  LPl)  JsLO 
X3=XCJ-1) 

YSaf  (J-1) 

X4*X  (J) 

Y4=Y(J) 

A3*X4-X3 
M3=(T4- Y3I/A3 
IF  (LM2  .EQ.  3)  GO  TO  43 
IF  (J  .EQ.  2)  GO  TO  41 
X2*X  (J-2} 

Y2aY  (J-2) 

A2»X3-X2 
M2»(Y3-Y2)/A2 
IF  (J  .EQ.  lO)  go  to  42 

41  X5*X(J41> 

Y5*Y  (J^l) 

A4=X5-X4 
M4a(Y5-y4) /A4 

IF  (J  .EQ.  2)  N2«M3*M3-M4 

GO  TO  45 

42  M4=M34M3-M2 
GO  TO  45 


009980 

310000 

01002C 

31U04U 

010060 

010083 

0101Q3 

010123 

010143 

010160 

01G180 

010200 

010220 

310240 

310260 

010280 

0103QQ 

010320 

010340 

010360 

010380 

01Q40Q 

010420 

010440 

010460 

010480 

010500 

010520 

310540 

010560 

010580 

310600 

010620 

010640 

010660 

013680 

010700 

010720 

010740 

110760 

010780 

310800 

010620 

010640 

010860 

310680 

313900 

013920 

110940 

010960 

010980 

OllQOC 

J11020 

011040 

011063 
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o  Wi  o  n  o 


kZ  M2**13 

011090 

M4aM3 

911110 

45  Xr  (J  .LE.  3)  GO  TO  46 

011128 

Al»)(2-X  ( J-3) 

011140 

Y2^r< J-3> )/At 

011160 

GO  TO  47 

Qiiiaa 

46  PilsH2<‘H2-H3 

911200 

47  IF  IJ  .Ge.  LHl)  GO  TO  4B 

911220 

A5*X  (J42)-X5 

911240 

H5«<YU*'2>-T5>/a5 

911269 

GO  TO  5C 

911290 

•«6  H5*rt44H4-M3 

311300 

111320 

NUneRICAL  OlFFEReNTlATIOM 

911340 

011360 

50  IF  <I  •£Q*  tPl)  GO  TO  5Z 

911360 

W2=ABS(M4-‘rt3) 

Q114QQ 

W3*A 

911420 

SX*H2^V43 

011440 

IF  (SW  .ME#  i)#a)  GO  TO  51 

011460 

M2*0«5 

011460 

H3*0*5 

011500 

$M«1.0 

311520 

51  T3*<W2^H24t43^H3) /SW 

111540 

IF  (I  .ea.  11  GO  TO  54 

011560 

52  W3aA6SC^5-rt4) 

011560 

>44aABS<W3-rt2) 

311600 

SN«M34H4 

011620 

IF  (SW  •«€•  a.a>  GO  TO  53 

01164Q 

H3«a«5 

011660 

H4«0«5 

011660 

SH«i»a 

011700 

53  T4«<M3*^34W4^rt4>/SW 

011723 

IF  <I  .N£#  lPD  go  to  60 

011740 

T3*T4 

911760 

SA =42^43 

011780 

T4»0 .5*  (rt4*-W5-A2*  U2-43> »  i  M2-M3)  /  CS A»SA)  ) 

011610 

X3»X4 

011821 

Y3ar4 

911640 

A3aA2 

011660 

«3*H4 

011660 

GO  TO  6C 

011900 

54  T4»T3 

611920 

SAsA3>A4 

011940 

T3»0*S4«M14H2-44^(43-*A4)*<H3*H4I  7t344SAJ  ) 

011960 

X3«X3«A4 

011960 

Y3»Y3-W2*A4 

012090 

A3«A4 

0120 20 

H3«H2 

012040 

012060 

oetermimation  of  the  coefficients 

012060 

012100 

60  Q2*(2*Q*C«3-T3I4«3-T4) /A3 

012120 

03»<-N3*N34*T3>T4)  /  IA3^43> 

012140 

912160 
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COMPUTATION  OF  THC  POLYNOMIAL  012180 

012200 

70  0X*UK-PC  012220 

iO  V(K}  =Q0»OX*(Ql«‘OX*<Q2^OX*Q3)  )  0122  40 

RETURN  312260 

012260 

ERROR  EXIT  312330 

012320 

90  WRITE  (6,2090)  012340 

GO  TO  99  012360 

91  WRITE  (6,2091)  012360 

GO  TO  99  012430 

95  WRITE  (6,2095)  012420 

GO  TO  97  012440 

96  WRITE  (6,2096)  012460 

97  WRITE  (6,2097)  I,X(I)  012480 

99  WRITE  (6,2099)  L0,N0  012500 

RETURN  012520 

012540 

FORMAT  STATEMENTS  012560 

012560 

2090  format  (1X/22H  •••  L  ■  1  OR  LESS./)  012600 

2091  FORMAT  (1X/22M  N  »  0  OR  LESS,/)  012620 

2095  FORMAT  (1X/27H  •••  IDENTICAL  X  VALUES,/)  012640 

2096  FORMAT(lX/33H  •••  X  VALUES  OUT  OF  SEQUENCE./)  012660 

2097  FORMAT  (6H  I  * , 17, 10 X, 6H XC I)  »,E12.3)  012680 

2099  format  (6H  L  *,I7,10X,3HN  >,I7/36H  ERROR  DETECTED  IN  ROUTINE  012730 

liNTRPL)  312720 

END  012740 
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PROGRAM  CHIFP0(INPUT,0UTPUT, TAPE5»tNPUT,TAPe6»OUTPUT> 


PROGRAM  •CHIFPO*  CACI0PATES  THE  •MlFPO *  PROGRAM  INPUT  DATA. 

the  program  computes  THE  FOLLOWING  FOR  EACH  (X,Z)  DATA  POINT  I 
<1)  MAGNITUOe  RsSQRTCX**24*Z**2)  — >  R  IN  COUNTS 

(2)  ANGLE  ALPHAsR/(136.664ai59*57.2957795l>  — >  ALPHA  IN  PAQIANS 
(3>  ADJUSTED  RaRAaR/COS< ALPHA)  »  RA  IN  COUNTS 
<4)  ADJUSTED  X»XA*X*RA/R  — >  XA  IN  COUNTS 
15)  ADJUSTED  2»ZA»Z^RA/R  — za  Ih  COUNTS 

DATA  ARE  READ  AND  PRINTED  IN  THE  STANDARD  *HIFP0«  PROGRAM  FORMAT. 

DIMENSION  X(4» »Z(4) 9XA(4> f ZA (4) 

DATA  RAO/57«29577951/9CON/136«604dl59/ 

FCT*CON*RAO 

10  REAOfStiOOO)  Fly  (XtDfZlI)  >Islf4) 

IF  <E0F<5))  999,20 
20  DO  100  1*1,4 

R*SQRTtX(I)**24ZtI)**2) 

ALPM*R7FCT 
Cl*COS( ALPH) 

XA(I)sXCI)/Cl 
ZA(I)aZ(It/Cl 
100  CONTINUE 

URITE(6,1000>  FI, CXA(I) ,ZAII) ,1*1,4) 

GO  TO  10 
999  STOP 

1090  FORHAT( A5,aF7.0) 

END 
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*U.S. Government  Prmtin9  Office:  1981  757-002/422 


QOOlOO 

0Q012Q 

000140 

000160 

000180 

000200 

000220 

000240 

000260 

000280 

000300 

0C0320 

000340 

000360 

000380 

000400 

000420 

000440 

000460 

000480 

000500 

009520 

000540 

000560 

000580 

000690 

000620 

000640 

000660 

000680 

000700 

000720 


